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SYMBOLS 


Note: All quantities are dimensionless unless designated with a superscript asterisk, in which case 
they are dimensional. 

A area normal to flow 

a speed of sound 

C p specific heat capacity at constant pressure 

C v specific heat capacity at constant volume 

d displacement of gas at end of tube 
cC general diffusion term 

/ frequency 

Fo Fourier number for the tube wall, Fo = a w j (ty*/* 2 j 

H enthalpy 

h specific enthalpy 

/ imaginary number, i = V-l 

3 imaginary component of a complex number 

J n nth order Bessel function 

j mass flux vector 

k thermal conductivity of material 

L length of tube 

/ thickness of tube wall 

M Mach number, M = Ug/a 

m n dimensionless radial function defined in table 5, equations (h), (i), and (j) 
n unit normal vector 

T anelastic pressure 

Pr Prandtl number, Pr = v' /a' 
p pressure 

Q heat 

q conduction heat flux, q = —kVT 


v 



R' ideal gas constant 

Re Reynolds number, Re = Up r* w /v* = eVa L’/ r w 

9^ real component of a complex quantity 
r radial coordinate 

r w inner radius of tube 

S entropy 

S surface area enclosing domain 

s specific entropy 

T gas temperature 

T w temperature at interface between the gas and tube wall 
t time 

U l velocity ratio, U ^ — U'^/Uq 

Velocity components 

'll higher-order Eulerian velocity vector 

u Eulerian velocity vector 

u axial Eulerian velocity 

u axial Eulerian velocity phasor 

v radial Eulerian velocity 

v radial Eulerian velocity phasor 

U axial higher order Eulerian velocity 

Up Lagrangian particle velocity vector 

Up axial Lagrangian particle velocity 

Vp radial Lagrangian particle velocity 

v radial higher order Eulerian velocity 

Va Valensi number, Va = r^co / v* 

V domain volume 

W work 

z axial coordinate 

vi 
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a thermal diffusivity 

(5 thermal expansion coefficient, /? = -(l /p)(dp/dT) p 

T gas domain length ratio T = (r' w /e £ ) 
tube wall length ratio r w = (/’/ e 2 U j 
y heat capacity ratio, 7 = C p jC v 

£ inverse Strouhal number (expansion parameter), e = Uq /(g/L* ) -d‘ 0 /L‘ 
Bessel function ratio C, n = J n /Jo, n — 0, 1 

6 temperature of tube wall 

K bulk modulus, K = p(dp/dp) T 

A elasticity parameter, A = yM 2 /e = y[Uo / a 0 )[(o’ L' / a 0 ) 
p dynamic viscosity 

P2 second viscosity 

v kinematic viscosity 

entropy of the tube wall 
p density 

x stress tensor 

<I> dissipation function 

0 phase angle 

07 phase angle between Uo (velocity at z = 0 ) and temperature 

(j>u phase angle between Uo (velocity at z = 0 ) and Ui (velocity at z = 1 ) 

X arbitrary thermodynamic variable 

y/ stream function 

(O angular frequency 

Superscripts 

mean -steady, time average over a period 



A complex quantity containing amplitude and phase angle 
* dimensional quantity (no asterisk represents dimensionless quantity) 

~ amplitude of a real quantity 

' exact derivative 

° definite integral 

cc complex conjugate 

Subscripts 

0 zeroth-order, quantity at z = 0, reference quantity 

1 first -order 

2 second -order 

3 third -order 

a aftercooler 

c cold end of pulse tube 

g gas 

h hot end of pulse tube 

L quantity at z = 1 

osc oscillating quantity 

w tube wall 

Dimensionless Numbers 

£ inverse Strouhal number (expansion parameter), £ = Uq/(o) L )=d 0 / L 
A elasticity parameter, A = yM 2 /e = y(Uo/a 0 ^((o L/a 0 ) 

Fo Fourier number, Fo = a w j[co'l' 2 ^ 

M Mach number, M = Ug/a 

Pr Prandtl number, Pr = v'/a 

Re Reynolds number, Re = Uq r w / v' = eVa L jr w 
U i velocity ratio, U i = Ul/Uq 

Va Valensi number, Va = r^co / v 

viii 
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STEADY SECONDARY FLOWS GENERATED BY 
PERIODIC COMPRESSION AND EXPANSION 
OF AN IDEAL GAS IN A PULSE TUBE 


Jeffrey M. Lee 
Ames Research Center 


SUMMARY 

This study establishes a consistent set of differential equations for use in describing the 
steady secondary flows generated by periodic compression and expansion of an ideal gas in pulse 
tubes. A small-amplitude series expansion solution in the inverse Strouhal number at the anelastic 
limit is proposed for the two-dimensional axisymmetric mass, momentum, and energy equations. 
The anelastic approach applies when shock and acoustic energies are small compared with the 
energy needed to compress and expand the gas, such as for pulse tubes. 

Seven independent dimensionless numbers are used to scale the system. The reciprocal 
Strouhal number and Valensi number are used to linearize the mass and momentum equations. The 
Fourier number is used to characterize heat transfer within the tube wall. The Mach number, the 
Prandtl number, the velocity amplitude, and the velocity phase angle at the tube ends complete the 
dimensionless scales. 

The ordered equations show that the zeroth-, first-, and second-order equations, are coupled 
through the zeroth -order temperature. An analytic solution is obtained in the strong temperature 
limit where the zeroth -order temperature is constant. The solution shows that periodic heat transfer 
between the gas and tube, characterized by the complex Nusselt number, is independent of axial 
velocity boundary conditions and Fourier number. Steady velocities increase linearly for small 
Valensi number and can be of order 1 for large Valensi number. Decreasing heat transfer between 
the gas and the tube decreases steady velocities for orifice pulse tubes. The opposite is true for basic 
pulse tubes. A conversion of steady work flow to heat flow occurs whenever temperature, velocity, 
or phase-angle gradients are present. Steady enthalpy flow is reduced by heat transfer and is scaled 
by the Prandtl times Valensi numbers. 

Particle velocities from a smoke-wire experiment were compared with predictions for basic 
and orifice pulse tube configurations. The theory predicted the observed mass streaming and flow 
reversals between the centerline and diffusion layers. The results indicate that the theory is valid for 
pulse tubes and that it can be used to solve for the zeroth -order temperature, to compute enthalpy 
flows, and to determine losses associated with steady secondary streaming. 




1. INTRODUCTION 


A gas subject to periodic compression and expansion generates higher-order steady 
secondary flows. The steady flows can manifest themselves as mass, momentum, and energy 
streaming. The pulse tube refrigerator, in which the generated steady flow of enthalpy can lead to 
temperature differences of over 200 K, is a practical use of this type of transport. 

The behavior results from nonlinear steady secondary transport. What appears to be strictly a 
linear periodic system — oscillating temperatures and oscillating mass flows — in fact, gives rise to 
mean- steady enthalpy flows. These enthalpy flows produce the observed refrigeration effect. The 
term “mean- steady flow” refers to the time- averaged secondary flow. 1 Other types of mean- steady 
flows, or streaming, include momentum streaming (such as acoustic streaming) and mass-species 
streaming. Although the magnitude of mean -steady flows may be small, the fact that they are steady 
and unidirectional can lead to sizable gradients over extended times. 

This work examines mean- steady secondary transport for the pulse tube refrigerator. The 
phenomenon is examined in the limit of a linear anelastic approximation. Oscillating anelastic 2 
flows are characterized by low Mach numbers and oscillating frequencies that are much lower than 
the resonance frequency defined by the system geometry. The anelastic approximation filters shocks 
from the fluid equations while retaining the effects of density variations resulting from “slow” 
compression and expansion of the gas. This applies when the energies of acoustic waves and shock 
waves are negligible relative to the energy needed to compress and expand the bulk gas. 3 This work 
investigates steady secondary momentum and energy flows of an ideal compressible gas in the limit 
of linear anelasticity. 


Mechanics of Mean-Steady Secondary Transport in Oscillating Systems 

Mean- steady secondary flows have been investigated for a number of systems. For such 
flows, the nonlinear advection terms of the appropriate transport equation produce the “driving 
force” for the mean-steady flow. Mean- steady flows can produce energy streaming, mass streaming 
(refs. 3-5), and even a mechanism for separating different mass species in multicomponent mixtures 
(refs. 6, 7). An example of mass streaming for a single component fluid is shown in figure 1 . 

Figure 1(a) shows the observed mean -steady pathlines external to an extended cylinder oscillating 
along its diameter in water, and figure 1 (b) shows the corresponding calculated pathlines. 

In this section, a simple linear mathematical model for describing mean- steady secondary 
flows is developed. Consider the unsteady advection -diffusion equation where u is the velocity, % is 


'This is different from 'quasi-steady’ flow which refers to periodic oscillations, or ‘steady-state’ flow which is 
absolutely constant in time. 

2 Anelastic flows are described in more detail by Sherman (ref. 1 ) and Paolucci (ref. 2). 

3 The arguments are similar to Boussinesq flow, except that the flow is driven by applied pressure forces instead of 
buoyancy forces. 
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Figure 1. Example of mean-steady flows in oscillating systems: from Schlichting’s oscillating 
cylinder (ref 8). 

a thermodynamic quantity (such as temperature or pressure), and tfis the term containing diffusion 

of*, 

4(*0=<r (1) 

dt dz 

Now consider a time-periodic series expansion solution of u and * that is expanded in the small 
parameter e, valid for e « 1 : 


u = uq{z) cos cot + eu j(z,t) + o[e 2 j 


* = Xo(z) c °s(cot + <j>) + £%]{z,t) + oU 


cC = cC 0 (z,t ) + £cC ](z,t) + oU 


where (p is the phase angle between u and *. Substituting the series solution into the differential 
equation and equating terms of like order in e results in 

0(1): = J^ o cos(ft>r + 0) < 

0(£): cC 1 = ^XlM + -^[uo COSO)t Xo cos { 0)t + < t > )\ 

at dz 

where O means “of order.” Equation (5) is the linear oscillating equation of 0(1). Its solution 
allows evaluation of equation (6) which describes a secondary flow of 0(£). By time -averaging 
equation (6) over a period the relation for the mean -steady flow is obtained: 


i 


d ' = l' 


<£d jdt - 

J az 

(“oXo) 

r y 

cos 0 + — | coslcotdt • 

I/O) 


< 1//W J 


( 7 ) 


d{“oXo) A 

= ^ COS 0 - 1/0*0 sin 0 — 


Equation (7) shows that the secondary flow depends on the gradients of amplitude and phase angle. 

Two limiting flows are characterized by being either of the standing wave type, in which 
phase is independent of position d<j)/dz = 0, or the progressive wave type, in which amplitude is 
independent of position d{uQXo)l^z = 0. An acoustic oscillator is an example of the standing wave 

type. An example of the progressive wave type is water of uniform depth oscillating near the shore 
of a pond. The oscillating water generates mean- steady momentum forces that form periodic ridges 
in the fine sediment. 


The above illustrates the mathematical basis for a linearized pulse tube model. The time- 
averaged product of velocity (kinematic quantity) and temperature (thermodynamic quantity) results 
in a mean -steady unidirectional flow of enthalpy. The mean -steady enthalpy flow will be non -zero 
when there are gradients in the phase angle and product amplitudes. This can be accomplished by 
heat transfer between the gas and the tube wall such that the thermal and viscous penetration depths 
are not equal, or by independently controlling the amplitude and phase angle of velocity at the tube 
ends. The first case is the enthalpy flow mechanism in the basic pulse tube, and the second is the 
mechanism in the orifice pulse tube. 


Background 

The following is a chronological summary of pulse tube development. A historical brief on 
pulse tube development is given by Longsworth (ref. 9), Kittel (ref. 10), and Radebaugh (ref. 1 1). 
Ames Research Center’s pulse tube home page 4 provides a comprehensive list of published pulse 
tube research papers through 1 994. A variation of the pulse tube is the acoustic refrigerator, a 
detailed account of which was prepared by Swift (ref. 12). 


Gifford and Longsworth 

In 1963 Gifford and Longsworth reported on a new type of regenerative refrigerator (ref. 13). Their 
“pulse tube refrigerator,” aptly named because of the use of pressure pulses to alternately compress 
and expand the gas, was innovative and very promising because there were no cold moving parts 
which could limit reliability. Comparable systems at that time were based on Stirling systems which 
required both a compressor and a cold expander for operation. Figure 2 shows a schematic of this 
early basic pulse tube (BPT). The BPT consists of a hot heat exchanger, an open tube, a cold heat 
exchanger, a regenerator, an aftercooler, and a reciprocating compressor. Work is supplied by the 
compressor, heat is rejected at Th and T a , and cooling is produced at T c . 


4 http://irtek.arc. nasa.gov/CryoGroup/PTDatabase/database.htm 
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Figure 2. Basic pulse tube. 


Longsworth’s experiments demonstrated the performance of a BPT, obtaining temperatures 
of 169 K with a single stage and of 123 K with two stages using helium (ref. 14). 

Gifford and Longsworth formulated a “step-wise” heat-transfer theory to describe their 
results (ref. 15), and recently, de Boer extended the analysis (ref. 16). The basis of his model 
consists of four steps: adiabatic compression of the gas and displacement toward the hot end of the 
pulse tube; isobaric heat transfer from the hot gas to the cooler tube wall; adiabatic expansion of the 
gas and displacement back toward the cold end of the pulse tube; and isobaric heat transfer from the 
wall of the pulse tube to the cooler gas. This description enables one to visualize how an “energy 
packet” can migrate between the gas and the tube wall in such a fashion as to result in a net transport 
of energy from one end of the tube to the other. Heat transfer between the tube wall — which acts as 
a second thermodynamic medium — and the gas is required to produce the phase shift necessary for 
the flow of enthalpy, as explained above. After a decade of research, however, interest waned 
because the BPT was unable to obtain temperatures and efficiencies comparable to those of Stirling 
cryocoolers. 


Wheatley, Swift, Hoffler 

Following the BPT, Wheatley et al. at the Los Alamos National Laboratory began 
investigating “naturally irreversible engines,” that is, those processes in which a downhill flow of 
entropy, say for example, heat conduction, can be used for conversion into mechanical energy, such 
as a thermally driven engine or prime mover (ref. 17). This work is still in progress by Swift at 
Los Alamos. A complete account of the theory of acoustic engines given by Swift (ref. 12) and a 
similitude analysis has been done by Olsen and Swift (ref. 18). 

The work on heat engines was applied to refrigeration by reversing the thermodynamic 
process. Hoffler examined an acoustic refrigerator in which a pressure driver was placed at one end 
of the system shown in figure 3 (ref. 19). Temperatures of 193 K were demonstrated using helium, 
with the stack acting as the second thermodynamic medium serving the same purpose as with the 
tube of the BPT. 


6 


i 




Hot HE Cold HE 



Qh* Qc> T c 


Figure 3. Acoustic refrigerator. 


Rott 


Previous to Wheatley’s work, Rott formulated a set of linear acoustic equations which 
included transverse diffusion (refs. 20, 21). Muller, studying under Rott, detailed much of the 
analyses in reference 22. The equations were examined for a number of conditions, including 
stability limits for thermally driven oscillations (ref. 23), tubes with variable cross section (ref. 24), 
gas-liquid oscillations (ref. 25), and efficiency analysis of thermoacoustic oscillations operating as 
heat engines (ref. 26). Of primary interest are Rott’s papers on second-order mean- steady heat flux 
(refs. 27-29), which focus on enthalpy and mass streaming in the limit of constant axial temperature 
Rott has termed this limit the “strong” temperature case (Rott, N. 1993: personal communication). 


Merkli 

Merkli and Thomann (ref. 30) experimentally investigated an acoustic refrigerator and 
examined their results using Rott’s acoustic equations. They found good correlation between 
experiment and prediction, with local heating at velocity nodes and cooling at antinodes. This and 
the experimental work of Wheatley laid the theoretical foundation for acoustic refrigerators and 
acoustic engines as accepted today. 


Mikulin 

The fundamental principle behind the acoustic devices and the BPT requires heat transfer 
between a solid boundary and the working gas. This necessitates a spacing between solid boundaries 
of the order of the thermal and viscous diffusion lengths. However, this limits enthalpy flow, 
because temperature and velocity amplitudes and phase-angle are restrained and because the 
dynamics are governed by transverse diffusion. However, Mikulin et al. showed that enthalpy 
transport need not require diffusion to produce the required phase shift between gas temperature 
and velocity, but that the phase and amplitude relation between velocity and temperature can be 
separately managed by controlling the boundary conditions at the tube ends (ref. 31). In their 
experiments, Mikulin et al. demonstrated the first orifice pulse tube (OPT) refrigerator, obtaining 
temperatures of 105 K with air. 

A variation of the OPT device is shown in figure 4. The approach Mikulin et al. used was to 
place an orifice and reservoir volume at the closed end of a basic pulse tube, thus allowing for a 
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finite gas flow. The result is to greatly increase enthalpy flow at the hot end 5 and to change the 
phase angle between velocity and temperature at the cold end so that pressure and velocity are closer 
to being in-phase. This eliminates the need for a second thermodynamic medium and the inherent 
restrictions associated with diffusion. It was also accomplished without the need for any type of 
mechanical device. The OPT results in lower temperatures, increased cooling, and higher 
efficiencies. Since the tube of the ideal OPT does not require heat transfer to transport energy, 
the transport process within the tube is ideally reversible. 


Aftercooler HE 


Cold HE 


Compressor 



Qa. T, 


Qc> Tr 


Hot HE Reservoir Vol 
Tube J Orifice 

m il 

Qh.Th 


Figure 4. Orifice pulse tube. 


Radebaugh 

After reviewing Mikulin’s work, Radebaugh and his coworkers recognized the intrinsic 
value of a cooler without any cold moving mechanical parts, and so began work on the OPT as it is 
known today. Their initial work demonstrated a single-stage 60 K refrigerator using helium, a 
substantially lower temperature than had been achieved by any previous PT device (ref. 32). Other 
investigators have since demonstrated temperatures of 4 K (ref. 33) and even lower by using 
multiple- stages (ref. 34). 

A description of the transport process for OPT devices was first given by Storch et al. based 
on a one- dimensional thermodynamic model that assumed adiabatic processes within the tube 
(ref. 35). A primary advantage of the one-dimensional (1-D) model is the convenience in using 
phasor diagrams to describe the phase relation between oscillating temperature, pressure, and mass 
flow. David et al. extended one- dimensional analysis for arbitrary time-dependence of pressure 
(ref. 36), and Kittel reviewed and extended the theory for entropy and work flows, temperature 
gradients, thermal conduction, and viscosity (ref. 37). For large systems in which transverse 
diffusion is confined to thin-boundary layers, this approach works well. However, for smaller 
systems in which diffusion is significant, large discrepancies arise (from 2 to 5 times, depending on 
tube diameter -to -length ratio (ref. 35)). 


Beyond one dimension 

The one- dimensional description of the transport process within pulse tubes is unable to 
describe transverse transport. To account for transverse effects, lumped-parameter corrections to the 
1-D model have been used. The complex Nusselt number developed by K. Lee (ref. 38) and 


5 Whereas in the BPT, enthalpy flow goes to zero at the closed end of the tube because the velocity goes to zero. 
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extended by Komhauser and Smith (refs. 39, 40) was used by Roach and Kashani (ref. 41). The 
complex Nusselt number allows for lumped -parameter corrections to the oscillating heat transfer 
between the gas and the tube wall by accounting for amplitude and phase- shift owing to diffusion. 

A number of investigators have taken the 2-D dissipative acoustic equations of Rott (ref. 20) 
and applied them to pulse tubes. Though the dynamics of the pulse tube are not within the con- 
straints of the acoustic approximation, nevertheless, the corrections offered by considering diffusion 
do increase the predictability. 

Jeong calculated 2-D steady secondary flows between flat plates with velocity oscillations 
for a BPT-configured system (ref. 42). His leading-order solution is in the limit of a boundary-layer 
approximation (thin diffusion layer). He applies the leading-order solution to the higher-order mean- 
steady problem and extends the solution over the complete transverse domain, with the solution for 
the core region corresponding well to the mean- steady parabolic solution of Rott. Previous solutions 
of the dissipative acoustic equations for a cylindrical geometry by J. Lee and coworkers have shown 
similar results for mean- steady mass flow, and have been extended to enthalpy flow (ref. 43). 

Xiao formulated the problem in the acoustic limit. His three papers present a general set of 
2-D acoustic equations with transverse effects averaged out (by integrating over the area normal to 
axial flow), thereby obtaining equations amenable to solution for “flow quantities” (integrated 
quantities as opposed to local vector quantities) (refs. 44-46). Xiao’s subsequent solutions are 
offered for isothermal zeroth-order temperature and adiabatic conditions at the tube wall. His 
analysis has yielded insightful understanding of axial mean- steady work, heat, and energy flows, 
and is a step above a 1-D analysis because it includes lower-order transverse diffusion; however, it 
cannot be used to determine the vector fields, nor the higher-order mean- steady transverse diffusion 
heat transfer. 

Bauwens takes an anelastic approach of the leading-order problem for very narrow tubes and 
small Mach numbers, and arrives at a solution for the axial temperature profile and mean- steady 
enthalpy flow (refs. 47, 48). Velocity conditions at the tube ends are treated as independent, and the 
temperature of the tube wall is fixed (high heat capacity). His analysis is applicable for very small 
Peclet numbers of the gas (small tube diameters) such as for regenerators. 

Only a few experimental investigations have been conducted to validate the predictions 
offered by the above solutions. Linear oscillating flow for low speeds was measured by Shiraishi 
et al. (ref. 49) and Nakamura et al. (ref. 50). Velocity phase shifts in the diffusion layer have been 
observed, corresponding to a Stokes solution of the linearized momentum equation. Hoffman et al. 
(ref. 51) compared pulse tube performance with the acoustic solutions of Xiao (refs. 44—46) and 
obtained good agreement. Previous work by J. Lee and coworkers had shown the existence of mean- 
steady streaming with characteristic lengths of the tube length, in agreement with higher-order 
solutions obtained from linear analysis (ref. 52). 


Other phase-shifting mechanisms 

The OPT goes beyond the capabilities of a BPT by utilizing a valve and reservoir volume at 
the hot end to increased phase shift and mass flow. The valve/reservoir combination, however, is 
still limiting. Two other new pulse tube configurations have the potential to further increase 
performance: the double-inlet pulse tube and the inertance pulse tube. 
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Double-Inlet Pulse Tube 

The double- inlet pulse tube, illustrated in figure 5, adds a flow path from the compressor to 
the tube hot end. This allows the gas to be compressed from the hot end of the tube, thereby 
increasing the phase angle and reducing the mass flow through the regenerator. Reducing the mass 
flow through the regenerator reduces enthalpy flow losses. Zhu et al. (ref. 53) first demonstrated the 
advantages of the double- inlet pulse tube, and Lewis and Radebaugh (ref. 54) recently obtained a 
temperature of 35 K for a 4 - cm 3 compressor using a double- inlet. Seo et al. measured axial and 
radial temperatures for the basic, orifice, and double- inlet pulse tubes and examined the phase and 
amplitude differences between the three (ref. 55). Shiraishi et al. measured axial mass flow between 
the three pulse tubes and showed that the double -inlet decreases flow in the middle of the tube while 
maintaining generally the same flow at the ends of the tube (ref. 56). This suggests that a primary 
advantage of the double-inlet is to increase phase angles. 


Aftercooler HE 


Compressor 


W 


Cold HE 


Regenerator 


Tube 



Hot HE Reservoir Vol 
I Orifice | 


MB 

m 

i I 

Qa* Qc» 

T c Qh’^h 


By-pass inlet 

Figure 5. Double-inlet pulse tube. 


The concept of the double- inlet can be extended to multi- inlets by providing flow 
communication between the regenerator and pulse tube at locations with similar temperatures. In 
theory, the effect is a multi-stage device with cooling stages at the multi -inlets, but in practice, it is 
difficult to obtain the proper flow amplitudes and phase angles. 


Inertance Pulse Tube 

Use of an inertance tube to replace the orifice has been reported by Godshalk et al. (ref. 57), 
Zhu et al. (ref. 58), Gardner and Swift (ref. 59), and Roach and Kashani (ref. 60). The inertance 
pulse tube is shown in figure 6. The idea is to use the inertia of the gas in a long tube to provide 
added phase shift, analogous to the inductance in an electrical circuit. Hence the term inertance, a 
combination of inertia and inductance. Matching the gas inertia in the inertance tube to the gas 
spring compliance of the compressor, regenerator, and tube combination can result in near resonant 
operation with higher performance. 
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Figure 6. Inertance pulse tube. 


A qualitative comparison of different modeling approaches is shown in table 1 . 
Two-dimensional anelastic modeling is seen to yield a high return on modeling effort. With 2-D 
modeling, transverse diffusion effects (which represent viscous effects and heat transfer between the 
gas and the tube wall) can be evaluated to obtain transverse temperatures profiles and higher-order 
mean -steady flows. The information obtained from a 2-D model is significantly more than from a 
1-D model, and anelastic approximations are computationally less intensive than fully compressible 
CFD (computational fluid dynamic) codes. 


Table 1 . Qualitative comparison of different modeling approaches. 


Model comparison chart 

Integral 

Differential 

analytic 

CFD 

Compressible Anelastic 

Primary measures 

Refrigeration (enthalpy flow) 

Phasor 

V 

l-D 

V 

2-D 

V 

1-D 

V 

2-D 

V 

3-D 

V 

2-D 

V 

Temperature, axial profile 


V 

V 

V 

V 

V 

V 

Temperature, transverse profile 



V 


V 

V 

V 

Mean -steady secondary flows 



V 


V 

V 

V 

Heat transfer between tube and gas 



V 


V 

V 

V 

Secondary measures 
Temperature- dependent properties 


V 

V 

V 

V 

V 

V 

Oscillating temperature at tube ends 


V 

V 

V 


V 

V 

Nonlinearities 




< 

V 

V 

V 

Buoyancy effects (free convection) 



- V 


V 

V 

V 

Flow end effects 





V 

V 

V 

Qualitative measures 

System optimization 


V 

V 

V 

V 

V 

V 

Transient simulation 




V 

V 

V 

V 

Physics are easily understandable 

V 

V 

V 
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Conventions Used 


The following conventions are used for variables in this study: 


u = scalar 
U = vector 

x = tensor 

«’ = dimensional 

u = dimensionless 

0(e) 

X,t=dx{dt 


lightface italic are scalars 

boldface are vectors 

lightface non -italic Greek are tensors 

with asterisk denotes a dimensional quantity 

without asterisk denotes a nondimensional quantity 

of order of £ 

partial differential notation 


Complex embedding will be used to eliminate the time variable. For periodic £, 

X=3K \xe h \ - 9* [ze i( ' +0) ] 

where t = (o’t\ % is complex, % is a real number, <p is the phase angle, and ‘SR extracts the real 
component of the complex quantity. 


Scope of This Study 

Previous attempts to model the dynamic workings of pulse tube coolers have typically used 
thermodynamic or acoustic analysis. The first, being an integral approach, fails in its attempt to 
capture local transport. It is also inherently one -dimensional, and so neglects transverse thermal and 
viscous diffusion. The consequence is to oversimplify phase angles and overestimate velocity, 
temperature, and pressure amplitudes, resulting in over prediction of enthalpy flows, particularly for 
small pulse tubes in which fields dominated by diffusion constitute a significant amount of the 
mean-steady flow. To account for transverse diffusion, lumped -parameter heat-transfer relations 
have been introduced with some success. 

The second approach, acoustic analysis, examines the differential acoustic equations first 
formulated by Rott. The transverse diffusion terms are retained, thus allowing for transverse 2 -D 
effects. Typically, however, the solution for the linear system has been simplified by approximating 
the diffusion layer as being very thin, thereby obtaining the pressure function at the 1-D inviscid 
limit. This is applicable to pulse tubes that have large Valensi numbers. The higher-order mean- 
steady flows have been examined for flow in a BPT. However, for the OPT, the transverse effects 
have been integrated- out, thereby making vector fields unobtainable. For these cases, the acoustic 
ordering is not completely consistent with demonstrated pulse tubes since pulse tubes operate at 
frequencies considerably below resonance. This is not a weakness, however, since the acoustic 
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solutions are smooth and well-behaved, and so can be used in engineering models. None of the 
previous work has compared measured mean -steady velocity fields to predictions in order to 
validate the solutions. 

This study goes beyond previous analyses by calculating the anelastic 2-D vector fields for 
enthalpy and velocity, and transverse temperature. Included are the effects of heat transfer between 
the gas and the tube wall of finite thickness. Finally, experimentally measured mean- steady particle 
velocities are compared with the theory’s predictions. 

Section 2 focuses on the fluid equations and the conditions in which they can be 
approximated for acoustic, anelastic, and linear anelastic flows. The enthalpy flow, mean -steady 
particle velocity, and entropy equations, useful in this study, are presented. 

Section 3 reduces the fluid equations for linear anelastic flow of a gas in a tube. The system 
taken is two-dimensional axisymmetric. Heat transfer between the gas and a thin- walled tube is 
included. An expansion series solution is taken, and the leading-order problem and the mean- steady 
higher-order equations are presented. The linearized equations are then simplified by using complex 
embedding for time. 

Section 4 presents the linearized solutions for the strong temperature case in which the 
zeroth-order temperature is constant. Examined are oscillating flows for velocity and temperature, 
oscillating heat transfer between the gas and the tube wall, and oscillating shear. Correlations and 
use of the complex Nusselt number are given. Mean-steady flows are calculated for the Eulerian and 
Lagrangian (particle) velocities, enthalpy flux fields, and temperature. The interaction between 
enthalpy flow, work flow, and heat conduction is discussed. 

In section 5 the predicted mean -steady particle velocities are compared with measured 
velocities. The measured velocities are obtained using smoke- wire flow visualization for air 
contained in a transparent tube with oscillating compressors at each end. 

Study results and suggestions for future work are summarized in section 6. 
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2. GOVERNING EQUATIONS 


This chapter examines and simplifies the governing fluid equations for slow oscillating 
compressible flows. The equations are scaled, and dimensionless numbers are defined. Next, 
secondary transport quantities are derived, and then series solutions are identified for the limiting 
cases of acoustic and anelastic flow. 


Equations of Change for an Oscillating Fluid 

The three governing equations for a compressible viscous fluid are defined by the laws of 
mass, momentum, and energy conservation. Supplementing the fluid equations are four auxiliary 
relations for density, enthalpy (energy), thermal conductivity, and viscosity in terms of pressure and 
temperature. Linear diffusion transport is assumed: Newtonian flow relating shear and velocity 
gradient through viscosity, and Fourier heat transfer relating heat conduction and temperature 
gradient through thermal conductivity. Stokes’s hypothesis for the bulk viscosity is assumed, and 
body forces are neglected. A detailed formulation of the governing fluid equations can be found in 
Batchelor (ref. 61). 1 

The system and the boundary conditions dictate how the equations are scaled. Details of 
scaling are given in appendix A and a dimensional analysis is provided by J. Lee et al. (ref. 62). 
Consider an ideal gas contained in a system with characteristic length L*. At each end of the tube the 
gas is displaced a distance dg, with frequency /* and characteristic velocity amplitude U'g. The 
imposed oscillating displacements also produce oscillations in the velocity vector u‘, pressure p ’ , 
density p”, and temperature T*. Pressure, density, and temperature oscillate about mean reference 
bulk values pg, p'g, and Tg, respectively, which are taken as the scaling constants. The scaling for 
u* is Ug and the scaling for time is the inverse angular frequency, a = 2k f . Using the above 
scaling constants, the conservation equations for mass, momentum and energy are, respectively, 


0 = P, r +eV(pu) 

pu, + epu-Vu = — rVp — -V-t 
K J H A Va 

y 1 . . 1 M 2 

pT t + £pu • VT = 2- — (p t + £u • Vp)- — — — V q-i- (y + 1)— t:Vu 
’ 7 Pr Va Va 


where 

x = /i 2 (V-u)I + 2/i defu; 3p 2 + 2p = 0; de/u = ^Vu + (Vu) tr 


(9) 

( 10 ) 

( 11 ) 


( 12 ) 


'For additional references, see Sherman (ref. 1), White (ref. 63), or Bird et al. (ref. 64). 
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and jJ-2 is the second viscosity, q = -kVT is the conduction heat flux vector, and t is the viscous 


stress tensor. The dimensionless parameters are the inverse Strouhal number, e ; the Mach number, 
M; the Prandtl number, Pr; the Valensi number, Va; and the elasticity parameter, A, which is a 
measure of the resilience of the gas (ref. 2). The parameters are defined as 


£ = 


yb 

* r* 

co L 





(13) 


where v is the kinematic viscosity, a is the thermal diffusivity, yis the heat capacity ratio 
C* /C v , a = -JyR'T'o is the speed of sound for an ideal gas, and R' is the ideal gas constant with 

the ideal gas law reducing to 

p-pT (14) 


Note that only two of the three parameters £, M, and A are mutually independent. For sinusoidal 
motion of velocity at the tube ends, £ = dgj L . Rewriting A = yMco L ja shows that it is 
composed of the Mach number and the ratio of the oscillation frequency to the system acoustic 
resonance frequency. For the problems we will address, M«\, (0 L /a « 1, and y = 0(1) . 


Relevant Transport Quantities 


Mean -Steady Enthalpy Flow 

The local mean -steady enthalpy flow is evaluated by integrating the enthalpy flux over the 
cross-sectional area normal to the flow and time -averaging over a period, 

77 = J jpn tiTdt dA (15) 

A 

where the overbar represents mean- steady values, and n is the unit vector pointing in the positive 
direction and normal to the cross-sectional area A. Enthalpy flux is scaled as h' 0 = pbU'o T b C p 311(1 

enthalpy flow as Hq = h' 0 A" . 

Mean -Steady Particle Velocity 

For absolute steady- state conditions, the stream function represents lines of constant mass 
flow (ref. 63) and is identical to the path along which particles travel (particle path). However, for 
oscillating flow in which quadratic products of the linear solutions produce higher-order mean- 
steady flows, the mean- steady stream function does not represent the mean- steady particle path. To 
find the mean- steady particle path, the mean- steady particle velocity must be determined. 

The instantaneous particle velocity, u^(x,r), is the Lagrangian velocity, as opposed to 
u (x,t), which is the Eulerian velocity. For small displacement, u p (x,t) can be obtained by a 
Taylor expansion of u(x,r) about the initial position x, at / = 0. Details are given by Batchelor in 
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reference 61 and they are reviewed in appendix B. The mean-steady particle velocity for an 
oscillating flow is given as 



( 16 ) 


where the first term on the right-hand side is the mean- steady field velocity at the initial position x ( 
at t — 0, and the second term is the velocity component due to time-averaged particle oscillations 
that transverse U(x). 


The mean- steady Lagrangian transport of other quantities has a similar form. Let % be such a 
quantity (for example, enthalpy h; entropy s; or the acceleration u f + u • Vu). Then the mean-steady 

value of % associated with the particle velocity is 

^ 


X P {x)~x{xi) + 


Ju(x,r) dt-Vx 


VO 


(17) 


Entropy 

The entropy equation is given by 

M 2 1 

ps, +epu- Vs = (y — 1) <I> V q (18) 

J u ; Va PrVa 

where O = X: Vu is the dissipation function. The entropy equation is an alternative form of the 
energy equation and is useful for optimization studies. 


Conditions for Acoustic and Anelastic Flows 


For the limiting condition of very small £, equations (9)-(l 1) can be reduced to a set of linear 
equations that are amenable to an expansion series solution. The parameter A serves by helping to 
identify the distinguished limit between e and M. 


Acoustic Flow 

The equations can be reduced to an acoustic form for A = 0(1) and e « 1. Here the first- 
order pressure pj(x,t), is coupled between the mass conservation and momentum equations. The 

acoustic equations are linear (ref. 65) and allow a series solution in £ where M = £ 0 ' 5 is the 
distinguished limit. The expansion for p(x,t) is 

p(x,t) = p 0 (x) + £pj(x,t) + £ 2 p 2 {x,t) + 0(£ 3 ) (19) 
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Equation (19) shows that the first correction to the pressure,/?/, is spatially dependent, and that 
pressure gradients are of the order of the bulk temporal pressure oscillations. The rest of the 
variables are also expanded in f, 


p(x,r) = p 0 (x) + £pj(\,t) + £ 2 P 2 M + 0(e 3 ) 

(20) 

T(\,t) = T 0 {x) + £T I {x,t) + e 2 T 2 {x,t) + 0(e 3 ) 

(21) 

u(\,t) = Uo(x,t)+ £U](x,t) + 0(£ 2 ) 

(22) 

v{x,t)= V 0 (x,t)+ £Vj(xj) + 0(£ 2 ) 

(23) 


Anelastic Flow 

An anelastic approximation of the fluid equations neglects density changes due to pressure 
gradients. Its effect is to “remove acoustic phenomena from theoretical considerations” (ref. 1) and it 
can be used to “filter sound” from the fluid equations with the advantage that the equations do not 
propagate numerical shocks (ref. 2). The anelastic approximation applies when shock and acoustic 
energies are small relative to the energy needed to compress and expand the gas. 

The condition A < £ « 1, defines the anelastic approximation. The corresponding 
distinguished limit is M < £. The pressure is expanded as 

p(\, t) = T(t) + X P 2 (x, t) + higher order terms (24) 

The anelastic equations are similar to the acoustic equations except that now there is no coupling 
(through the pressure gradient) between the mass conservation equation and the momentum equation 
at leading-order, that is, at leading-order T (t) is not present in the momentum equation, but remains 
in the mass and energy conservation equations, and in the equation of state. The next pressure term 
is 0(A); it is the kinematic pressure that drives the flow in the momentum equation. A consequence 

of this ordering is that there is an inaccuracy in the mass conservation equation of 0(A). Appendix C 
details the anelastic scaling. 

The added unknown T(t) requires an additional relation. The relation comes from the 
integral form of the energy equation. For a calorically perfect gas (ideal gas with constant heat 
capacity), the integral equation is 

yvA = X_J_f n VrdS-^ f T(t)n u dS (25) 

V Pr Va J V J c 

where n is the outward pointing unit normal vector, S is the surface area enclosing the domain, and 
Vis the domain volume. Equation (25) defines T (t) in terms of boundary conditions only, hence, 
T(t) is the thermodynamic equilibrium pressure and is the integral equivalent of the first law used 
in macroscopic thermodynamics. 

Now consider a subset of the above case in which A « £ « 1. An appropriate expansion of 
pressure is 

p(x,t) = Po + £ P/(0 + A, /> 2 (x,t) + eA /?i(x,r) + 0(e 2 A) (26) 
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The expansion given by equation (26) is applicable for pulse tubes where T ( t ) of equation (24) has 
been split into two terms, pq + epj(t). The first term represents 0(1) time-dependence of pressure, 
such as when the pulse tube is cooling or warming; for quasi-steady conditions it is constant. The 
second term represents 0(e ) time-dependence given by the oscillating pressure in the pulse tube. As 
before, the thermodynamic pressure p\ is determined from the energy integral, equation (25). The 
expansion in £ of the other variables is given by equations (20)-(23). 


Linear Anelastic Flow 

The added condition £Va « 1 allows linearization of momentum, that is, a linear anelastic 
approximation. The product £Va is the Reynolds number. In this study, the linear anelastic problem 
is investigated. Though the acoustic problem is not addressed here, it has been addressed elsewhere 
(ref. 20); it is, however, summarized, along with the anelastic equations, in table 3 of section 3. 
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3. TWO-DIMENSIONAL AXISYMMETRIC FORMULATION 


In this section, the two-dimensional axisymmetric linear anelastic problem is derived for 
oscillating flow in a tube. Heat transfer between the gas and a tube wall of thin but finite thickness is 
considered. Mean -steady relations are derived and summarized for both the anelastic and acoustic 
limits. Finally, the equations are simplified for sinusoidal time using complex embedding. 


System 

Consider an ideal gas contained in a long cylindrical tube of finite wall thickness. The 
thickness of the tube wall is very thin relative to the tube radius. The system is thermally insulated, 
and the gas velocities at the tube ends are of small amplitude and sinusoidal. Figure 7 is a sketch of 
the system. A summary of the assumptions and approximations made in the analysis is as follows: 


1 . 

2 . 

3. 

4. 

5. 

6 . 

7. 

8 . 

9. 


Two-dimensional, axisymmetric cylindrical geometry 
Inert single component ideal gas 

Constant properties — thermal conductivity, heat capacity, dynamic viscosity 

Enthalpy a function of temperature only 

Stokes hypothesis for second viscosity, 3 H 2 + 2/1 = 0 

r' w /L* « 1 implying that the radial momentum equation is negligible, p r =0, and that 
p = p(z,t) 

No body forces 

/' « r* w so that the tube wall domain can be approximated with rectangular Cartesian 
coordinates 

Sinusoidal time -periodic velocity boundary conditions 


at r- 0, 

Uo* 1 ' 


ADIABATIC AT WALL 



z = 0 


z=l at r = 0, 

j} Le i(t + <p[) 


Figure 7. Two-dimensional axisymmetric system for oscillating flow. 
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The problem is divided into two domains. In the gas domain, only the gas inside the tube is 
considered; it extends from r = 0 to r = 1 , and from z = 0 to z = 1 . In the tube-wall domain, only the 
tube wall thickness is considered; it extends fromy = 0 toy = 1, and from z = 0 to z = 1. The two 
problems are coupled through the boundary conditions between the gas and the tube wall which 
require that the temperature and heat flux be continuous across the interface. In the gas domain, the 
thermodynamic variables of temperature Tand density p are functions of spatial coordinates r and z, 
and of time t. For the tube- wall domain, the tube-wall temperature 6 is a function ofy, z , and /. 

The normalized velocity field for the gas domain is composed of the axial velocity u and the radial 
velocity v. The periodic boundary condition at r = 0 and z = 0 is u = Uge lt and at r = 0 and z = 1 it 

is M = {y L e'( f+0t ') where i = V-l. The velocity is scaled by U' 0 so that U 0 = 1 and U L =U L /U' 0 . 
Finally, at the outer surface of the tube (y = 1) the radial heat flux is zero (adiabatic). 


Equations 


The dimensionless fluid equations for mass and energy conservation, the equation of motion, 
and energy conservation for the tube wall are 


P,t + £ 


{pvr\r 


+ {pu) 


yZ 


= 0 


(27) 


{pu) t +£ 




+ (puu) 


yZ 


1 K).r 


l P ' z + V a r 


Pyt 


+ £ 


'(P Vr \r 


I y — 1 1 

+ (pu) „ =- i £up 2 + - — 

V£ Kz I y r* p r Va 






\ZZ 


+ (r-i)C« 


p = pT 


e, t 



(28) 


(29) 

(30) 

(31) 


where T 2 = (r* w / £L') 2 and T 2 W = (l’ / e 2 L'f . The last two relations, T and T w , are of 0(1). This 

ordering for equations (29) and (31) applies when the axial conduction of energy due to the tube 
wall is two orders higher than the corresponding conduction of the gas. The equations do not allow 
for azimuthal flow; however, it is noted that one should not necessarily rule out the possibility of 
azimuthal flow in pulse tubes. 

In addition to the dimensionless numbers previously introduced (e, M, Pr, Va, and A) there 
are several other dimensionless quantities that result from the boundary conditions and the system 
geometry. These are the velocity amplitude ratio, U^; the normalized velocity phase angle, <pu, 
which is the phase angle between the velocities U' 0 and U’ L where U’ 0 leads U' L and 0 < p v < 1 ; the 
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Fourier number for the tube wall, Fo = a' w j[l' 2 0i'^; and dimensionless length ratios, r w f il and 
I'/l' . Table 2 lists the complete set of dimensionless parameters. 


Table 2. Dimensionless numbers. 



Range 

Name 

Definition 

Comments 

£ 

10~ 3 to 
IO -1 

Expansion 

parameter 

Uo/(co'L’)=do/L' 

Ratio of displacement length dg to 
tube length il, to’ = 2n f 

A 

10~ 8 to 

io - 5 

Elasticity 

parameter 

M 2 Un (dll 

7 =7 , . 

e a a 

c* 

y = -f and a=^ Y R% 
L v 

M 

10~ 5 to 

io - 3 

Mach 

number 

U-Ja 

Ratio of velocity at z = 0 to speed 
of sound 

Va 

1 to 10 2 

Valensi 

number 

r 2 co'/ v 

Squared ratio of tube inner radius 
to viscous diffusion length 

Pr 

0.7 

Prandtl 

number 

v fa 

Squared ratio of viscous to thermal 
diffusion length of gas 

Fo 

Oto 10 2 

Fourier 

number 

a w /(r 2 co’) 

Squared ratio of tube-wall thermal 
diffusion length to tube-wall 
thickness 

rjt 

KT 1 

Gas domain 
length ratio 


Ratio of tube radius to tube length 

r/L : 

KT 2 

Tube wall 
length ratio 


Ratio of tube-wall thickness to tube 
length 

v L 

Oto 1 

Velocity 

ratio 

v'l/u'o 

Ratio of velocity amplitude at z = 1 
to amplitude at z = 0 

Qu 

-0.5 to 
0 

Velocity 
phase angle 


Velocity phase angle where Uo at 
z = 0 leads Ui at z = 1 

H 


Normalized 

enthalpy 

flow 

H'lKf 

Ratio of mean -steady enthalpy 
flow to oscillating enthalpy flow 

H'nf = P 0 r 0 U- 0 C p Xr-J 


To illustrate the values of the dimensionless numbers, consider a small- sized pulse tube 
operating at 10 Hz, with a stainless steel tube of wall thickness /*= 0.01 cm, inner radius 
r w - 0.35 cm, length L*= 5 cm; thermal diffusivity of the tube wall a w = 0.045 cm 2 /sec; helium gas 
mean pressure at 10 6 Pa; kinematic viscosity v* = 0.124 cm 2 /sec; Prandtl number Pr = 0.7; speed of 
sound a - 10 3 m/sec; and gas displacement dg = 0.04 cm. The calculated dimensionless numbers 

become e = 8xlO -3 , Va = 62, eVa = 0.497, M = 2.5xl(T 5 , A = 4.8xl0 -8 , Fo = 7.2,and 
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M 2 /Va = o(lO ** j « £ 2 . The value of eVa shows that these conditions are at the limit of the 
linear approximation, and the relation for M 2 /Va shows that viscous dissipation is not important. 

Now consider a pulse tube operating with a more typical £= 0.1. This results in eVa = 6.2, 
which is not strictly within the constraints of the linear approximation. However, if the measured 
values of mean -steady flow for £Va > 1 are in agreement with calculations using a linear approach, 
then an argument can be made for describing mean- steady flows for pulse tubes using a linear 
theory. It will be shown that this is the case. 


Series Expansion 

The anelastic criterion that applies to pulse tubes is 

A « £ « 1 (32) 

We are interested in the quasi -steady periodic solution for the leading-order problem. 

Equations (27)— (3 1) are linearized using a two-parameter series expansion for pressure in £ and A, 

p(z,t ) = 1 + £ Pj(t) + X P 2 (z,t)+ £X p 2 (z,t) + 0(£ 2 X) (33) 

and an expansion in £ for the other variables, 

p(r,z,t) = p 0 {z) + £pi(r,z,t ) + £ 2 p 2 (r,z,t) + 0(£ 3 ) (34) 

T(r,z,t ) = Tq(z ) + £ T j(r,z,t ) + £ 2 T 2 (r,z,t) + 0{£ 3 ) (35) 

u(r,z,t) = UQ(r,z,t) + £uj(r,z,t) + 0(£ 2 ) (36) 

v{r,z,t)= v 0 (r,z,t) + £Vj{r,z,t) + 0(£ 2 ) (37) 

For details as to why the expansion takes the form of integer powers in £ and A refer to appendix D. 
Equation (33) reflects that the leading-order equation of state is 

1 = Po = Po(z)T 0 (z) (38) 

and the first- order correction for pressure is 

Pl = p } (t ) (39) 

Details for obtaining equation (39) are also given in appendix D. 


First-Order Oscillating Equations 

The resulting first- order equations for mass and energy conservation, the equation of state, 
and the energy equation for the tube wall are, respectively, 


Pi, 


+ 


{P0 u 0 r )^ r 


+ {Po u o)' Z 


(40) 
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(41) 


Pl,t , (PO V O r \r 
7 r 


+ ( Po u o) tZ - 


i H 

PrVa r 


Py = PoT] + PjTo (42) 

6 l,t = Fo 0;^ (43) 

The condition eVa « 1 allows linearization of momentum. Ordering the momentum equation shows 
that the flow is driven by the p 2 (z*0 pressure gradient 


, V 1 ( ru 0,r) r 

\Po u o) t - -P2,z + 


The energy integral over the gas domain defines the relation for pj(t) 

f ^ 

— — \n-T Ur dS-\np 0 u 0 dS 




PrVa- 


V 


(44) 


(45) 


where the prime denotes an exact derivative. Equation (45) shows that the thermodynamic 
oscillating pressure pj{t), results from the forced oscillations at the tube ends and from periodic 
radial heat conduction at the tube walls. 1 Details of the expansion are given in appendix D. 

The above coupled set of linear equations still does not completely define the basic state 
problem. This is because the zeroth -order temperature, Tq(z), is coupled to the mean -steady, 
second-order energy equation. To completely define the basic state problem, the mean-steady 
equations of next order must be determined. 


Mean -Steady Equations 

Mean -steady velocity component due to Reynolds stresses, U; 


The mean- steady, second -order momentum equation is given by 


(pO v O u o) r . , _ 1 ( ru lr) r 

^ + (PO»OU 0 \ Z = ~P3,z + ^ 


(46) 


The left-hand side of equation (46) contains the Reynolds stresses. The right-hand side is the 
resulting mean-steady velocity uj, and the mean-steady pressure pj. These two are unknown. A 
second relation comes from the zero -net -mass -flow constraint, which requires that the integration 
of the steady axial mass flux over the area normal to the axial flow be zero, 

1 

0 = \(p 0 ui + pjuo)rdr (47) 

0 


’Periodic axial heat transfer at the tube ends is not considered here. 
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The above two equations are used to solve for uj and pj . The mass conservation equation is then 
used to solve for Vj , 


(p 0 V } r + PjVor) _ 

0 = — + {Po u l + Pl u 0 ) 


,z 


(48) 


Mean- steady temperature distribution and the equation of state 

The mean-steady, second-order energy equation is used to find T 2 , 


1 


Pr Va 


( rf ^), +r2r 

+ 1 l O,zz 


= ^a {P0 U 1 + Pl u o) 


(49) 


where T 2 = 0(1) and (V a •) is the axisymmetric divergence operator, that is. 


V a • ( p 0 uj + pj u 0 ) = (p 0 u ] + pju 0 ) z + rp 0 u } + r Pl u 0 ) y Here we see that T 0 {z) is coupled to the 
second- order energy equation. The equation of state is used to find the density 

P2 =P0T2+P I T,+p 2 T 0 
The gas-domain equation is coupled to the tube-wall domain 


(50) 


0 = 6 


2,yy 


(51) 


which implies 6 2 = 0 after requiring that the temperature boundary condition aty - 1 be adiabatic. 
The zeroth-order temperature of the tube wall, 6q zz , is of 0{{f ) so it does not enter into the 

problem at 0(e 2 ). 

The complete leading-order problem requires Tq[z) to be solved simultaneously at zeroth- 
order (eq. (38)), oscillating first-order (eq. (42)), and mean-steady, second-order (eq. (49)). Table 3 
summarizes the leading-order and mean- steady equations and boundary conditions. 
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Table 3. Summary of equations: leading order and mean-steady boundary conditions." 


Zeroth -order relations 

P0 = 1 

Po = Po(z) T o(z) 
8o(z) = T o(z) 


Zeroth -order equation of state 


Eq. 

(a) 

(b) 
i£) 


First-order oscillating equations 

, , 1 K'l.r 

\Po u o)'[ = ~P2,z + ^ — ; — 

Pl,t + V a {Po u o) = Q 


( 


Pu = r 


^-^-VaiPoUo) 


PrVa r 


n _ y 

Pl.t-y 


~^-JnT lr dS-\n Po u 0 dS 


0(A) pressure gradient drives the 0( 1 ) 
velocity 

Mass conservation 


Energy 


Volume integrated energy 


Pl = Po T i + Pi T o 


e It = Fo e lyy 


Equation of state 


Energy equation for tube wall 


(d) 

(e) 

(0 

(g) 

GO 

_0L 


Mean -steady equations 


1 (™;.r) r 




° = |( po u ; + Pi u o) rdr 


V fl • (pouy + P/Ufl) - 0 


1 ( r7 Zr) r _ T 2 

— — : — =v a (p 0 u; + p / u 0 )-p-^r 0 , zz 


PrVa r 


Solve with the axial mass flow 
constraint to obtain p^and Uj average 

Axial mass flow constraint 


Single quadrature to find vj 


Second -order mean -steady energy 
equation 


P2 = PO T 2 + P]Ti+p 2 To 


0 = 6 


2>yy 


(j) 

(k) 

( l ) 

(m) 

(n) 

(o) 


"The acoustic problem is obtained by replacing p 2 in eq. (d) with — \ replacing p 2 in eq. (j) with 

. anc j eliminating eq. (g). 
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Boundary conditions for oscillating problem 


Symmetry 
No slip 

No-penetration condition 


o 

II 

£ 

II 

£ 


at r = 0 

o = UQ 


at r = 1 

O 

II 

£ 


at r = 1 

<5 

ii 

ii 

Vo* 1 '] 

at z ~ 0 and r = 0 

u 0 = U L = 3? 

pL e ‘ l ] 

at z = 1 and r = 0 

II 

o 


n 

o 

T } = Q] and 
k g Tj,r = k w B l,y 

0 = dj y 

at y = 0 and r = 1 
at y = 1 


Boundary conditions for mean - steady problem 


(P) 


Two boundary conditions in z needed for 

u o.zz 

Symmetry 

Temperature and heat flux continuity 
Adiabatic at outer wall 


o 

II 

% 

11 

O 

II 

Symmetry 

o 

II 

at r = 1 

No slip and isothermal 

0= Vj 

at r = 1 

No-penetration condition 

T 0 =n z=0 

To = T\ z -\ 

at z = 0 
at z = 1 

Two boundary conditions in z 
needed for Tq ^ 

0 = f 2 ,r 

0= d 2 = T 2 

at r = 0 

at y = 0 and r = 1 

Symmetry 

Results from solution of eq. (o) and 
applying boundary condition where it is 

0 = hy 

at y = 1 

adiabatic at outer wall 




Comments 

The complete problem involves 15 variables {uq, Vq, Uj , V], pQ, pj, P2 Tq, Tj, T2, 0 ], 
0 2 , pi, P 2 , P 3 ) in the 15 equations listed by equations (b) and (d) - (q) in table 3. There are 12 
continuum equations, one integral equation (g), and two boundary constraints (p) and (q). The 
boundary constraints are independent equations, since in the differential equation for mass conserva- 
tion, Vo has only a single derivative and need satisfy only a single boundary condition. Note that the 
zeroth-, first-, and second-order equations must be solved simultaneously for the leading-order 
problem because To is coupled between the zeroth- and first- order equations of state, and the mean- 
steady energy equation. 

Thermally strong approximation, Tq z =0 

The problem can be greatly simplified for the case of negligible zeroth -order axial 
temperature gradient, Tq , = 0 . This would apply for a strongly imposed heat sink/source on the 
system. This leads to decoupling of the zeroth-order equation of state from the mean-steady energy 
equations. The zeroth-order equation of state is exactly known (po = po= To = 1) so that the first- 
order oscillating equations become self-contained and can be solved independently. The result is 
seven equations (eqs. (d) to (i) and boundary constraint eq. (p)) with seven unknowns (uo, Vo, pi, pi. 
Pi, Ti, 0]). This simplified case applies to the experimental investigations of section 5. 


Acoustic limit 

As shown in section 2, the acoustic limit requires A = e « 1 which results in 
p(z,t) = 1 + £ P;(z,t) + £ 2 P2{z,t) + 0(£ 3 ). The equations in table 3 can be rewritten in acoustic form 
byreplacing P2(z,t) in equation (d) with Pi{z,t); replacing P3(z,t) in equation (j) with P2(z,t ); 
and eliminating equation (g). 

Entropy production 

The mean -steady generation of entropy can be used to optimize enthalpy flow by 
minimizing entropy production. The entropy equation is expanded to second -order and integrated 
over the domain. The zeroth- and first- order entropy equations do not contribute to mean -steady 
entropy production since they describe only linear oscillating entropy transfer in the form of heat 
transfer and entropy advection, and not generation . 2 Entropy generation is quadratic at second - 
order. 

Integrating the second- order entropy equation over the domain results in the steady 
generation of entropy S 2 , 


2 Entropy generation is different than accumulation which can come in at first-order if the flow of heat at each end of 
the tube is different. This would result in a bulk temperature transient. In this case, the first-order accumulation of 

entropy is given by S t = — — — [ n-^-^-dS which requires the system to be heating or cooling. 
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■$2 = J ( Po s 2 + Pl s l + P2 S 0 ) ^ 

y 




- J n • ( Po u o s i + Po u i s o + Pi u o s o) dS 


Viscous dissipation does not come in at second-order — irreversibilities are due only to heat transfer. 

The entropy produced in the tube wall must be added. The entropy equation for the wall at 
second -order is 



The total entropy generated by the combined gas and tube wall system is the sum, (S 2 + # 2 ) • In the 
limi t of an isothermal or an adiabatic wall boundary condition, the wall-domain problem need not be 
considered, and the gas-domain equation, S 2 , by itself, is sufficient because in both idealized cases 
there are no temperature gradients present in the wall. 


Complex Embedding of the First-Order Equations 

To obtain a periodic solution for the linear equations of table 3, complex embedding can be 
used to eliminate the time-dependence. The problem is then solved in the complex plane with the 
real part of the complex solution being of physical significance. The complex solution takes the 
form 

x = ( 54 ) 

where x represents the real part of the complex function x(x)e lt . In general, £(x)is spatially 
dependent and is itself complex. Appendix E details the procedure for simplifying the first- order 
equations; only the important points are summarized here. 

The first-order momentum equation given in table 3, equation (d), is reduced to a solution in 
z. The solution for uo is explicit in r with the z - dependence contained in p 2 {z) and pq{z), both 

unknown at this time: 

io= '£(f[ 1 - fo ( r ’* ;VW )] <55) 
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where 


Cn( r 'Z ff ) 


J 0 (o^-ip 0 (z)) 


n = 0,1 


(56) 


with J n being the Bessel function of the nth- order. In a similar manner, the energy equation can be 
solved explicitly in r with unknown dependence in z. The energy equation is rearranged using the 
equation of state and the mass conservation equation to arrive at 


7-1 - 


Pl T o[ l ~ Co('%z:VPrVa)] + f w e l<pT Co(r,z\4PrWa) 

/ 

- T 0 T 6 p J[l - fo(r,z;VPrVl)] - Vv^) - ( 0 (r,z^ PFW) 


(57) 


where T w is the amplitude and <py is the phase angle of the temperature at the interface between the 
gas and the tube wall. The first term on the right-hand side of equation (57) contains the factor 

y \ 

PjTq. This factor represents the leading term of a series expansion of the thermodynamic 

7 

relation for isentropic compression of an ideal gas, dT = y-l dp The ^ ^ algo mdudes the 

T y p 

Bessel function expression |l - £o(V,z;VPr Va)J, which describes the transverse diffusion 
temperature fall -off between the center of the gas and the tube wall. 

The second term of equation (57) is the effect due to the heat transfer between the gas and 
the tube wall. For an isothermal tube wall, T w = 0. For a non- isothermal wall of finite thickness, 7) 
is coupled to the temperature 6j of the tube wall. The governing equation for the tube wall is given 
in table 3 by equation (i). The solution is 


Q l - T w e 


i <P t 


e W-e lX 


iy( isinjyy ^ 

l cos* J 


(58) 


where * = 

The third term is due to advection of gas along the axial temperature gradient. The 
dependence on To suggests that the oscillating temperature T j should increase with local mean 
temperature. Experimental measurements of the oscillating temperature in a pulse tube suggest this 
is the case (ref. 35, p. 54). For Pr -» 1, L’ Hospital’s rule shows that the term remains finite. More- 
over, for a BPT with Pr -> 1 and T w = 0, the phase shift between temperature and velocity — 
provided by the difference between thermal and viscous diffusion lengths — is everywhere 
orthogonal, which results in zero enthalpy flux. However, for an OPT, a phase shift is imposed by 
the velocity conditions at the tube ends, hence, enthalpy flux remains finite for Pr = 1. 
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Equation (57) shows that the unknown temperature, fj, is now described as a function of the 
axial temperature Tq[z), the kinematic pressure p 2 {z), the bulk oscillating pressure pj, and the 
temperature amplitude f w and phase angle 07 between the gas and tube wall. Equation (57) is 
combined with the zeroth- and first-order equations of state and with the first-order mass conserva- 
tion equation to obtain a second- order ordinary differential equation for Vo which is explicit in r and 
unknown in z: 

v 0 = i|m 7 (r,z;VVa)r 0 P2 


m 7 (r,z;Wa) - ^[mj(r,z;VVa) - m 5 (r,z; VPrVa)]^^ ( 59 ) 


+ 


m 2 (r, z;VPrVa)p 7 +m 3 (r,z\~J PrVa)-^-^ 7 ' 


where 


ra 7 (r,z;Vv a) = - -^-mj(r,z;Vv a) 

r y- 1 
+• - 1 

1 


m 2 (r,z\y f PrVa) = — + — — -mj(r,z;V PrVa) 

2y y 


m 3 (r,z;a) = 


v^fipoiz) 




(60) 

(61) 

(62) 


Details about the derivation of equation (59) are given in appendix E. Equation (62) shows that 
when T 0 z = 0 , po is constant and that Vo becomes independent of z.The boundary condition vo = 0 
at r = 1 is used with equation (69) to obtain a quasi- linear, second-order ordinary differential 
equation for p 2 (z) with unknown constant pj. 


0 = # + 


[m ; (l,z;VPrVa) p r 

mj(l,z;VVa) m 3 (l,z',y PrVa) 

| m y (l,z;VVa' 

Pr - 1 

m 7 (l,z;VVa) m 7 (l,z;VVa) 


Hln T 0 {z)] P ' 2 


w 2 (kz;V PrVa) fa m 3 (l,z;VPrVa) f w ^ 
m 7 (l,z;VVa) T 0 m 7 (l,z;VVa) Tq 


(63) 


This is the pressure equation for p 2 (z). The volume-integrated energy equation is required for the 
unknown pj, 

( ' 


iPl = 


y_ 

y 


j n • Tj r dS - J n • u 0 dS 


Pr Va 


(64) 
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Table 4 summarizes the reduced set of oscillating first-order equations. These equations, along with 
the mean- steady equations and boundary conditions of table 3, complete the formulation of the 
linear anelastic problem. 


Table 4. Reduced set of oscillating first-order equations. 
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Considerations for the Leading-Order Temperature, Tq(z) 

Solving the most general case requires simultaneous solution of the zeroth-, first-, and 
mean- steady, second- order equations because of the temperature coupling of T 0 (z). However, there 
are three limiting cases that specify T 0 {z), a priori, thus allowing decoupling of the first-order and 
mean- steady equations. Following is a summary of the general case along with the three limiting 
cases: 


1. T 0 {z) is unknown 

This is the most general case in which Tq(z) is part of the solution to the set of coupled zeroth-, 
first-, and second-order equations. 


2. (in T 0 ) = constant => T 0 (z)= T 0 {0) 


M) 

7b(0) 


Here T 0 {z) is exponential. This requires solving a coupled set of quasi- linear differential 
equations. 

, ^ / m 

3. Tn = constant => (In Tn ) = 

^ mz + a 

Here T 0 {z) is linear in z with slope m. This case also requires solving a coupled set of quasi- 
1 inear differential equations. 


4. T' 0 = (lnT 0 ) = 0 

Here To is a constant. This is the thermally strong case, implying that Po = Po = T 0 = l’ where 
thermal sources and sinks are imposed on the system to maintain a constant temperature Tq. 


Case 4 describes the thermally strong condition and is the simplest since the pressure 
equation is reduced to a second- order ordinary differential equation with constant coefficients, 
which allows an analytic solution. In addition, p } is now one of two unknown constants in the 
pressure equation and is found by using the second boundary condition on u 0 \ hence, the volume 
integral of the energy equation is not required (eq. (f) in table 4). The remaining part of this study 
will focus on the thermally strong condition of Case 4. 
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4. SOLUTION FOR THE THERMALLY STRONG CASE, T 0jZ = 0 


The equation sets in tables 3 and 4 can be analytically solved for the case of VTq =0. The 
condition VTq = 0 implies pg = pg = T 0 = 1 and thus allows the quasi-linear differential equation 
for pressure (eq. (e) in table 4) to be reduced to one with constant coefficients. This is Case 4 
described in the previous section — a hypothetical condition in which heat sources and sinks 
maintain To constant. Rott (1993: personal communication) termed this case thermally dominant or 
“strong.” The solution is tabulated in table 5, and solution details are given in appendix F. 

Leading-Order Results 

In this section, flow fields are calculated for BPT (Ui = 0) and OPT {Ui = 1) configurations 
as a function of Va, <py, and Fo for fixed values of£= 0.002, /= 5/3, (/*/£* ) 2 ~ 0(e 4 j, 

(r^/L*) 2 ~ C^e 2 j, X ~ and M 2 ~ O^lCf 11 j. For these conditions, M 2 /Va < O^IO -12 j 

so viscous dissipation is not important. 

Table 5 shows that the pressure, equation (a), and the temperature, equation (c), are constant 
in z and depend only on the velocity boundary conditions and the tube-wall temperature. There is no 
dependence on pressure gradient; this is a result of the anelastic approach, and reflects thermo- 
dynamic equilibrium. The axial velocity, equation (b), also reflects thermodynamic equilibrium in its 
linear z- dependence, while the radial velocity, equation (d), is constant in z- The temperature of the 
tube- wall domain is given by equation (f), and the effect of heat transfer between the gas and the 

tube wall is contained in the terms represented by f w e^ T . Appendix G lists the code used for 
computing the solutions. 


Comparison of pj and Tj 


The equation for integrated bulk oscillating pressure is given by equation (f) in table 4. After 
integration, it is 


/ 

fj=-2iy 


1 

Pr Va 



-m;(l;VVa) 


1 - U L e l<t>u 

1-£>(0;VV^ 


(65) 


This is more general than the solution pressure given by equation (a) in table 5. For the present 
solution, equation (65) is not required for determining the bulk oscillating pressure pj, because the 
bulk oscillating pressure is an unknown constant in the leading-order momentum equation and is 
determined by the velocity boundary conditions at the tube ends (details in appendix F). The 
pressure pj that results is the thermodynamic pressure calculated along the centerline of the tube. In 

contrast, the integrated pressure Tj of equation (65) is determined by integrating over the volume 

A 

domain of the gas. This results in a discrepancy between Tj and pj. The difference should be of 

order of the thermal diffusion layer thickness, 0\ — - — 

VPrVa 
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Table 5. Summary of leading-order solutions for strong-temperature case, Tg yZ = 0. 


- • w 7 (l;VVa) m 3 ( l;VPrVa) .. 

* l-£o(0;VVa) m 2 (l;VPrVa) m 2 (l;VPrVa) 


fi h 

-[‘ l 1 ) z J|i- & (0;Vvi) 


f .r-1 f Wo(2^) l/, f7 




y « 2 (l;VPrVa)l l-£o(<WVa) 


mj(l;VVa) [ m 2 (r; VPrVa) _ /n 7 (r; VVa) j / _ ^ 


l-£ 0 (0;VVa) |m 2 (l;VPrVa) my(l;VVa) j 

[w 2 (r;VPrVa) m 5 (r;V PrVa) 

- im s (l, PrVa)-— m ^j 1; ^ prVa j 


Pl = Pl~ T l 


[ cosx ) 


- H 

m 7 (r,z;VVa) = - m 5 (r,z;VVa) 
m 2 (r,z;VPrVa j = - — + -^— m 2 (r,z;VPrVa) 


m5(r,z;<r) = — T ===C, I {r,z\o) 


my(0,z;VVa) = 0 
m 2 (0,z;VPrVa) = 0 


mj(0,z;o') = 0 





The bulk pressures p } and Tj for a BPT ( Ui = 0) with e = 2 x 10 3 and A = 6.46 x 10 9 
are given in figure 8. The difference between pj and T } for small PrVa is significant, being about 
40% for PrVa = 0.7. As PrVa increases (7< PrVa <21), the difference is less than 5%, and for 
PrVa = 70 the difference is less than 1%. The difference between pj and Tj is consistent with a 
PrVa scaling. 


PrVa = 0.7 PrVa = 7 





Figure 8. Pressure vs. time for pj (—) and T] (- -) with A = 6.46 x 10 9 , T w = 0, Ui=0. 

Leading-Order Temperature and Pressure Phasors 

Figure 9 shows how heat transfer between the gas and the tube wall affects the temperature, 

A A A 

pressure, and velocity phasors 1 for a BPT and an OPT. Phasors for pj, Uq, Ui, and T b for the 
conditions Fo — > 0 and Fo = 100, and Va = 1, 30, and 100 are shown where T b is the bulk 
oscillating temperature (temperature averaged over the tube cross-sectional area), 

1 

T b =2jrfjdr (66) 

0 


Phasors are complex vector quantities whose magnitude and angular position, when plotted in the complex plane, 
represent, respectively, the amplitude and phase angle of a sinusoid. 
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The BPT is a standing wave device and so the velocity phasor uq has a constant phase angle 
along the tube length; hence uq lies along the real axis. Because uq lies only along the real axis, the 
temperature phasor T b is out of phase with the velocity. This is seen in figures 9(a)-9(c) for a BPT. 
The result is very small enthalpy fluxes since enthalpy flux depends on the cosine of the phase angle 
between temperature and velocity according to the general relation given by equation (7) where Xo 
is the temperature phasor and uq is the velocity phasor. 

Three more observations are illustrated by figure 9. The first is that for the BPT phasor 
diagrams, figures 9(a)-9(c), which show that f b and u 0 are closer to being in-phase for Fo -» 0 
than for Fo = 100. This is due to the large heat transfer between the gas and the tube wall for 
Fo — » 0. The condition Fo — > 0 represents isothermal wall conditions. The condition Fo = 100 
represents near adiabatic conditions on the gas. That is, the condition Fo = 100 represents a very 
thin-walled tube relative to the thermal penetration in the tube wall. This illustrates how heat 
transfer is required for the BPT in order to obtain a favorable phase shift between temperature and 
velocity. 

The second interesting observation is shown for the OPT in figures 9(c)-9(e). The results are 
for Ui = 1 and <p(j = -0.1 . The velocity phasor at z - 0 is Uq, which lies along the real axis with 
amplitude 1, and the velocity phasor at z - 1 is Ui- The shaded area between Uq and Ui represents 
all velocity phasors between z — 0 and z = 1 , hence the OPT is more of a progressive wave device 
because of the presence of phase-angle gradients. 

The OPT shows that T b can be adjusted through the velocity boundary conditions so that it 
is more nearly in-phase with u 0 . This is most easily seen in figures 9(d) and 9(e) for Va = 30 and 
Va = 100. Flere T b is more in-phase with u 0 when compared with the BPT. Also, it is apparent that 
for the OPT the adiabatic conditions imposed on the gas by the tube wall result in the temperature 
and velocity phasors becoming more in phase. This is most easily seen for Va = 100 and Fo = 100 
where f b is now in the shaded area representing the velocity phasors within the tube. For the 
isothermal wall condition of Fo 0, T b is pushed out of phase (out of the shaded region) with 

velocity. This results in less enthalpy flow. Heat transfer, then, is not advantageous for an OPT. 

Third, when there is significant heat transfer between the gas and tube wall, the pressure and 
temperature phasors move out of phase relative to each other for both BPT and OPT. This is seen 
by comparing p l and T b for Fo -4 0, with p 1 and T b for Fo = 100. For Fo = 100, pj and T b are 
nearly in phase (Va = 30 and Va = 100), whereas for Fo 0, they are not in phase. Calculations 
show that the phase shift can be about 20%. This is important because in simple 1-D models it is 
often assumed that there are adiabatic conditions on the gas and so there is a presumption that 
temperature is always in phase with pressure. A discrepancy between experimental measurements 
and model predictions may then arise. Most pulse tubes operate at Fo = 0(1), which is closer to 
isothermal wall conditions. 
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^(Fo-^O) amplitude O (0.01) 



Figure 9. Effect ofVa and Fo on pressure and temperature phasors for BPT (Ui — 0) and OPT (1)^ — 1, <t>(j — 0.1). Reference 
velocity phasor Uq along real axis with unit amplitude. 




Transverse Diffusion of Oscillating Velocity and Temperature 

Velocity 

Figure 10 shows uo(r ) at z = 0 for Va = 1 and Ui = 0 at t = 0, 0.1, 0.2, 0.3, and 0.4. For 
small Va, the profile is parabolic as in steady -state flow. Increasing Va to Va = 10 shows that the 
velocity near the wall begins to lead the velocity at the centerline. Further increasing Va to 30 and to 
100 shows that the velocity very near the wall substantially leads that of the centerline, and that the 
velocity in the vicinity of the centerline begins to flatten and take on an inviscid profile, with the 
velocity amplitude near the wall leading and overshooting the velocity at the centerline. Figure 1 1 
shows Vo(r). For small Va, vo is in phase (with itself) at all r- locations. Increasing Va, however, 
results in Vo near the wall leading vq at the centerline region. 


Va =1 Va =10 



Figure 10. Oscillating axial velocity, uo(r). 
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Va =1 


Va =10 






Figure 11. Oscillating radial velocity, Vo(r). 


Temperature 

Figure 12 shows the T '/(r) profile for PrVa = 0.7, 7, 21, and 70 with Fo — » 0 and Fo = 100. 
For the isothermal wall condition of Fo — » 0, the temperature profiles are similar to the velocity 
profiles of figure 10, just scaled by the Prandtl number. For the near- adiabatic case of Fo = 100, in 
all cases of PrVa, the temperature at the wall is seen to float. This is because the wall temperature 
responds to the imposed oscillating gas temperature — the wall temperature is not fixed as it is for an 
isothermal wall. The ability of the wall temperature to float for the adiabatic wall allows for the 
temperature at the centerline region to be larger when compared with that of the isothermal wall. 
This is apparent for PrVa — 0.7 and PrVa = 7. As Va increases, the centerline temperature for 
Fo — > 0 begins to approach that of Fo = 100 in both amplitude and phase. This is because diffusion 
is now confined near the wall in the boundary layer. Figure 12 shows that the effect of the floating 
wall temperature on gas temperature is primarily confined to the diffusion layer, and that an 
adiabatic wall condition will have a greater relative effect on gas temperature amplitude for small 
PrVa than for large PrVa. 
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PrVa = 0.7 PrV a =7 



Figure 12. Oscillating temperature, T j(r). Temperature profiles for Fo —> 0 are pinned at r - 1, 
and profiles for Fo = 100 (identified with '* ’) float at r = 1. 


Oscillating Heat Transfer and Oscillating Shear 

Complex Nusselt number for oscillating heat transfer 

The thermal diffusion and temperature phase shifts are now examined within the context of 
the complex Nusselt number proposed by K. Lee (ref. 38). His work focused on BPT-type systems. 
We now extend our analysis for OPT systems. The complex Nusselt number Nu is defined as the 
heat flux at the wall divided by the difference in temperature between the tube wall and the bulk gas, 


NU = TT" 

Qw e 

A \ 

(67) 

(T w ~T b )e“ 


— . 

1 

(68) 

f i 

-l\rf i dr 
r=l J 1 



0 



where q w =-T ] r 


r=l 


T w = T l 


r = 1 


and Tfr is defined by equation (66). 
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1 

A A A A r A 

Figure 13 shows phasors for Nu, T b , AT - T w - 2 1 rTjdr and q w as functions of 

0 

PrVa = 0.7, 21, and 70, and Fo — » 0 and Fo = 100 for the BPT and OPT, respectively. For 
PrVa = 0.7 and Fo — » 0, the above phasors are of very small amplitude, and are generally in phase 
(or 180° out of phase) with Uq (the phasor of Uq is along the positive real axis and is of unit 
amplitude). Steady-state heat transfer coefficients can be used under these conditions. Continuing 
with Fo — » 0, as Va increases to PrVa = 21 and beyond, phase angles also increase with q w lagging 
Uq. At Va = 70, <p^ u = -0.397, and for Va > 70, <p^ u ~ -0.38 (not shown), which corresponds 
well with K. Lee’s value of <Pft u ~ -0.375 for rectangular geometry in the limit of large PrVa. 

The effect of Fo shown in figure 13 is to shift the phase of q w ahead so that now q w leads 

A A 

Uq. A curious observation is that Nu is independent of Fo. This is proven mathematically in 
appendix F. A scaling of equation (68) shows that Nu ~ VPrVa. The thermal penetration in the gas 
is only affected by VPrVa , whereas Fo only affects the tube- wall temperature boundary condition. 

Figure 14 shows plots for the same phasors as shown in figure 13 with the same values of 
PrVa and Fo for an OPT with U i — 1.0 and <pu = —0.1, where U i = U^e l ^ u . Comparing figure 14 
with figure 13 for corresponding PrVa and Fo shows that all phasors are shifted forward, except for 

A A A # m 

Nu, which remains with the same relative phase angle. That is, Nu is independent of U^. This is 
shown mathematically in appendix F. Thus Nu is only a function of PrVa and is independent of Fo 
and U i. F Nu versus PrVa is plotted in figure 15; the figure can be used for either BPT or OPT 
systems, independent of Fo, U^, and tpy . 

The complex Nusselt number may be used for one -dimensional linear oscillating flow in a 
tube to correct for radial heat transfer, 

't S c = ‘P; + Nu(PrVa)7„ c (69) 

where T osc is the local oscillating temperature and Nu = A e 1 ^ . 

Complex wall shear factor for oscillating shear 

A similar relation can also be defined for oscillating shear and oscillating bulk velocity. 
Gedeon termed this the “complex wall shear factor,” F (ref. 66). It is defined as 

F = — (70) 

u b 

where 

1 

^w=“0rl i and u b =2\ruordr (71) 

* ir=l J ’ 

0 
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angles for OPT: (U^ = l, <pu = - 0. 1). R< 


These relations are of the same form as the complex Nusselt number, and so figure 1 5 may be used 
in a similar manner with the scaling length characterized by Va. The complex wall-shear factor may 
be used as a lumped -parameter approximation of shear for one -dimensional linear oscillating flow, 

i“osc = ~P2,z + F( Va )“o5c ( 72 ) 

where u osc is the area-averaged oscillating velocity and F = A e 1 ^ . 




Figure 15. Amplitude and phase of the complex Nusselt number, Nu(PrVa) = A e‘^ , or complex wall 
shear factor, F(Va) = A e‘^. 

Mean -Steady Secondary Flow 

The mean- steady flows are composed of the time -averaged product of two oscillating 
quantities. The first is velocity; the second may be density for mass flux streaming, temperature for 
enthalpy streaming, pressure for work streaming, entropy for heat streaming, or velocity itself for 
momentum streaming. In all cases, each oscillating quantity depends on the axial velocity amplitude, 
as seen in table 5. Thus, all mean-steady fluxes have a quadratic dependence on axial velocity. 
Details for the mean- steady secondary flow solutions for Tq z = 0 are found in appendix F. The 

results are summarized here. 

Eulerian Velocity, Tiy(r,z) 

The Eulerian mean -steady velocity results from two nonlinear flow components. These 
components are the Reynolds stresses uy and the nonlinear product of the oscillating first- order 

density and leading-order velocity, p 7 u 0 . Although the two components are not themselves 
independently measured, they do constitute separate components of the mean -steady Eulerian 
velocity Uy(r,z), which is measured. U(x,t) is defined as the observed velocity component of the 
mass flux vector j where j(x,f) = pu; hence. 
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T/(x,r) and j are expandable in e. 


Ti(x,r) — Hq + e'll] + j 

(74) 

j(x,r) = p 0 u 0 + e(p 0 U] +p]U 0 ) + o(e 2 ) 

(75) 


Substituting equations (74) and (75) into equation (73) and equating like orders in e results in 

/ Uo=uq and 'll] + (76) 

Po 

where Po = 1 for the strong-temperature case. Ti;(r,z) is composed of the axial component Uj and 
the radial component Vy 

U]= u j + p] u o (77) 

and 

y] = Vi+p]Vo (78) 

Figure 16 shows calculated mean -steady Eulerian velocities for a BPT with an isothermal 
wall, Fo — » 0. The left column shows the velocity field / U](r,z), and the right column plots U/(r) 
and V](r) at z = 0. The z- dependencies are such that Uj is linear in z, and vj is constant in z. This 
can be seen by examining equations (b) and (d) in table 5. For the viscous case in which Va = 1, the 
mean-steady velocity components are of order Uj = Oj^lCT 2 j and Vj = O^IO -3 j due to the domi- 
nance of diffusion throughout the gas domain. Flow in the vicinity of the centerline (r = 0) moves 
toward the closed end, and flow near the wall is toward the oscillating end. There is a radial 
component of flow at z = 1, because no-slip at the tube ends is not enforced in the equations. The 

r- momentum equation, which contains axial diffusion of the radial velocity, is of j and so is 
not included in the 0(e) mean-steady problem. 

As Va increases to Va = 10, the mean -steady flux increases by the same order, and the 
steady flows remain in the same directions. Upon further increasing to Va = 50, flow at the center- 
line decreases and flow near the wall increases. For Va < 50, the radial flow component (dashed- 
line plot) is seen to be always outward toward the walls, that is, streaming flows down the center of 
the tube toward the closed end and radially outward toward the tube wall, and then back to the 
oscillating end along the tube wall. At Va = 60, the flow at the centerline decreases to the point 
where the flow reverses itself and begins moving toward the oscillating end. At this point, a double 
boundary layer develops. This is consistent with the analysis of Stuart (ref. 67). Stuart refers to the 
diffusion layer near the wall as the “inner layer,” and the transition layer between the inner layer and 
the centerline as the “outer layer.” His terminology is adopted here. For Va > 60, the development 
of the double boundary layer requires streaming to now flow from the outer layer to either the inner 
layer or to the centerline region, as shown by the negative and positive radial velocities in the plot 
for Va = 100. The Va = 100 plot distinctly shows the inner and outer layers, and the centerline 
region. For Va > 100 (not shown) the centerline and outer layer flows increase in magnitude, and the 
inner layer flow remains relatively constant. 
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Figure 16. Effect ofVa on the Eulerian mean- steady velocity for a BPT: £ - 0.002. 


48 


I 



The results shown in figure 16 correspond well with the results of Grotberg (ref. 3) for 
mean-steady mass flux of oscillating incompressible flow in a diverging tube. In Grotberg’s 
analysis, the larger end of the tube corresponds to lower amplitude oscillations, whereas for this 
analysis the closed end of the tube corresponds to lower amplitude oscillations. The present results 
for comparable e and Va are consistent with those of Grotberg in both direction and magnitude of 
the component velocities, including the predicted double boundary layer. 

Figure 17 presents the mean-steady velocity fields 'Uj(r,z), and velocity plots Uj(r) at 
z = 0, 0.5, and ^respectively, for an OPT-type system (oscillating flow at both ends). Fixed 
parameters are = 1, <py = -0.25, and Fo — » 0. The range of Va examined is from Va = 10 to 
Va = 100. For Va = 10, the velocity enters the tube at the centerline from both ends, reverses flow 
within the tube, and then exits in the diffusion layer near the wall. The plot for Va = 10 shows that 

Uj = O(l0 _1 ) which is of the same order as the previous BPT case for Va = 10. For Va < 10, Uj 

scales with Va as with the BPT. Increasing to Va = 30, the centerline velocity at z = 0 is seen to 
decrease to zero, while the velocities at z = 0.5 and z = 1 decrease further in the negative direction. 
For 30 < Va < 50 , the centerline velocities at all three z- locations become negative, and a double 
boundary layer develops at z = 0. Continued increase in Va results in decreasing the inner layer at 
z = 0. At Va = 50, the remnants of the inner layer at z = 0 can be seen. Further increasing Va, the 
centerline velocity for z = 0 and z = 0.5 continues to decrease and the diffusion layers near the wall 
increase. At Va = 60, the centerline velocities have all converged at about Uj =- 0.7, and the inner 
layer at z = 0 has almost disappeared. Further increasing to Va = 100 shows that the velocities for 
z = 0, 0.5, and 1 have inverted, with the centerline velocity at z = 0 still decreasing while at z = 1 the 
centerline velocity is now increasing, and the inner layer now completely disappears. For Va = 100 
there is very strong streaming of the order of the oscillating velocity. 

The results shown in figure 17 give a sense of how the second oscillating velocity (at z = 1) 
of an OPT can lead to streaming patterns that are much more complex than those of a BPT. For 
small Va < 10 streaming is small and it scales with Va. For large Va = 100, streaming is very strong 
and is of the order of the oscillating velocity. 

The effect of phase angle on mean -steady flow is given in figure 18. The calculations are 
based on Va = 100, 0^ = 1, and Fo — » 0. The plots are for tt/(r) at z = 0, 0.5, and 1 . For 
0 > <py > -0.25 there is only a single boundary layer at all three z-locations 2 For <py < -0.30 at 
z = 0 (not shown) a double boundary layer begins to develop. For <py < -0.40 at z = 1 a double 
boundary layer develops with a direction opposite to that at z = 0. At <py = — 0. 50 , the flow is 
mirrored across z = 0.5, and at <py = -0.55 the flow is mirrored to that of <py = -0.45 (not shown). 


2 The case <Py- 0 and 0 1= \ is incompressible flow, hence mean-steady flow is zero since uq z = 0 , that is, the 
Reynolds stresses are zero. 




49 



V a =10 


Steady Velocity Fields Xi ; (r,z) 

r=l 



r=0 


V a =30 


r=l 


z=0 



r=0 


V a =50 

r=l 



r=0 


V a =60 

r=l 



r=0 


V a =100 


r=l 



r=0 


Uj(r) atz = 0—; z = 0.5- - ; z = 1 





Figure 1 7. Effect ofVa on steady velocity for OPT: e = 0.002 , { 7 ^- 1 , (j>u - - 0.25. 
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Steady Velocity Fields 'U I (r,z ) U/(r) at * = 0 — 1 z = 0.5 — ; z = 1 

<l>u = - 0-10 , 



Figure 18. Effect of <pu on the steady velocity for OPT: e = 0.002, Va = 100, U i = 1 . 


51 


The mean- steady velocity field is a complicated function of velocity phase angle. In general, 
for <pu < -0.40 the centerline and diffusion-layer regions flow in opposite directions. For 
<j)(j <- 0.40, flow reversals between the centerline and diffusion-layer regions become more 
pronounced because radial flow components become stronger. For <t>u = -0.25, streaming is 
strongest, implying that at this phase angle, mean -steady flow quantities such as enthalpy flow, will 
be largest. Later, the mean -steady enthalpy flow will be shown to be a maximum at <Pu =- 0.25. 

Particle Velocity, u p 

The mean- steady particle velocity, , is used to compute the particle path, or pathline. It is 

the velocity in Lagrangian coordinates and it is different from the observed mean-steady Eulerian 
velocity given by 'Uj . Appendix B provides details on the formulation of , and appendix F 

outlines its computation. For £« 1 the components of are 

u p (r,z) = U]+ u o,r\ Q v 0 dr + u 0,z\ Q u 0 dr 

and 

t ) p {r,z) = V] + V 0 dT+ Vo^UodT 

Equations (79) and (80) are simply the steady velocity conversions between Eulerian and 
Lagrangian coordinates. Interpreted physically, the oscillating components of velocity u 0 push 
particles across mean-steady streamlines f UL j , which results in an additional drift quantified by the 

quadratic term Q 0 U 0 Vuq j. 

Figure 19 plots u p (r) and U^r) at z = 0 for a BPT, with Va= 1, 10, and 100. The Eulerian 

and Lagrangian velocities are seen to be very similar for both axial and radial velocities. The BPT is 
a standing wave device, hence all local velocities generally are in-phase. The additional quadratic 
terms of equations (79) and (80) each contain a time integral of velocity, which when integrated, 
results in a 90° phase shift. The quadratic product thus becomes nearly zero since the product of two 
phasors that are 90° out of phase is zero. (The mean- steady product of two standing wave phasors is 
proportional to the cosine of their relative phase angle, according to eq. (7).) 

Figure 20 shows the fields for V.j(r,z ) and u p (r,z) for an OPT with U L = 1, <Pu = -0.1, 
and Va = 1, 10, and 100. Also shown are plots for Uj(r) and u p (r) at z = 0, and Vj(r) and V p (r) 
at z = 0. For Va = 1 and 10 there is a significant difference in the field plots between 'U 1 and u p . 

For Va = 1, Tij is seen to flow toward the middle of the tube at the centerline and then reverse flow 
near the walls, with Uj ■ 0 near z = 0.45. The corresponding flow for shows a centerline flow 

that is continuous from left to right, with a reverse flow near the walls. The plot shows that U } (r) is 
significantly smaller than u p (r) for Va = 1 and 10, and the radial flows Vj(r) and v p (r) are nearly 

equal. For Va = 100, % and u p are nearly the same. 


(79) 

(80) 
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V,(r,z) Oop) and u„(r,z) (bottom); Fo=100 u,(r) - and U p (r)-- at z=° v,(r) - and Vp ( r ) -- atz^ 




Figure 20. Comparison of Eulerian and Lagrangian particle velocities for OPT at z - 0, U L - 1 and <pu - 0.1 



In general, for Va of about 1 , the axial Eulerian and particle velocities have similar profiles; 
however, the Eulerian velocities are much more restrained. As Va increases to 10, the axial velocity 
profiles are no longer similar, being quite different in both direction and magnitude. For Va of 100, 
the fields become nearly identical in both speed and direction. The results reflect the large influence 
of the progressive wave component contained in the additional quadratic term of the particle 
velocity. 


Effect of Heat Transfer on Particle Velocity 

Figure 21 illustrates how heat transfer between the gas and the tube wall affects the mean- 
steady particle velocity for the BPT. The figure compares at Fo — » 0 and Fo = 100 for 

PrVa = 0.7, 7, and 70. For PrVa = 0.7, the axial velocity u p for isothermal wall conditions (Fo — » 0) 

is nearly the same as for the near adiabatic case (Fo = 100). Upon increasing to PrVa = 7, the 
adiabatic condition increases the axial velocity until it is about 30% greater than for the isothermal 
condition. For PrVa = 70, the adiabatic condition now reduces the axial velocity to about 50% less 
than that for the isothermal condition at the centerline; they are about equal in the outer layer; and 
the adiabatic case is greater by about 30% in the inner layer. For the radial velocity v p , the 

difference between the adiabatic and isothermal conditions increases with increasing PrVa. 

Figure 22 illustrates the affect of heat transfer for the OPT on particle velocity and plots the 
same conditions for Fo and PrVa as for the BPT of figure 21. In general, Fo and PrVa have the same 
affect on the OPT velocities as for the BPT. One exception is that for PrVa = 70 the double bound- 
ary layer is not present in the OPT so that the streaming in the diffusion layer near the tube wall is in 
the opposite direction compared with the inner layer of the BPT. Also for the OPT at PrVa = 70, the 
streaming in the diffusion layer near the tube wall for adiabatic conditions is less than it is for 
isothermal conditions, whereas for the BPT, the streaming in the inner layer is greater for the 
adiabatic conditions than it is for the isothermal conditions. 

The mean -steady velocity reduces pulse tube performance because it directly transports gas 
from the hot end to the cold end, and vice versa, thereby destroying the temperature gradient. The 
mean- steady velocity is rather a complicated function of Fo and its effect on velocities is not easily 
determined by simple examination of the solutions. The benefit of figures 21 and 22 is to give a 
general understanding of how PrVa and Fo influence mass streaming for the BPT and OPT. 

For the BPT, the difference in viscous and thermal diffusion lengths provides the phase- 
shifting mechanism between velocity and temperature to produce enthalpy flow. In this case it is 
best that the PrVa be sized so that diffusion fills the entire gas domain and that the tube wall be sized 
for Fo — » 0 (isothermal wall condition). A good value of PrVa is about 7, as indicated in figure 21. 
These conditions allow diffusion over the gas domain while at the same time reducing mean- steady 
streaming (relative to the adiabatic wall condition). 
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Figure 21. Heat-transfer effect on particle velocity for BPT. 
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Figure 22. Heat-transfer effect on particle velocity for OPT: £ — 0.002, U^ — l, and <py — 0.1. 



For the OPT, the velocity boundary conditions at the tube ends provide the phase-shifting 
mechanism. Diffusion is not required and, in fact, diffusion will reduce enthalpy flow by reducing 
the velocity and temperature amplitudes near the tube wall. Operation at large PrVa and large Fo 
(adiabatic wall conditions) is desirable because the diffusion layer now is confined to a thin layer 
near the tube wall. From figure 22 for PrVa = 70, the mean-steady axial velocity plot shows that for 
Fo = 100, the steady axial particle velocity is reduced relative to Fo -» 0. The combination of large 
PrVa and large Fo confines the diffusion layer to be thin while at the same time it reduces mean- 
steady streaming (relative to the isothermal wall condition). 


Mean -Steady Temperature, T 2 

The mean- steady temperature f 2 is found by a double quadrature of equation (m) in table 3 
with T 0 z = 0 . In conservative form it is 


1 ( rf 2 A, 

Pr Va r 


= («; + m?) . + ~( v i r + Pi v o r ) r 

y i 


(81) 


which shows that 7^? is a result of the axial and radial work flows. That is, gradients in conductive 
heat transfer are a result of gradients in work flow. 


Figure 23 shows T^r) for the BPT and OPT with Fo — » 0 and Fo — 100, and PrVa — 0.7, 7, 
and 70. The mean-steady temperature is constant in z- The plots show that for PrVa = 0.7 and 7, heat 
is continuously being transferred to the wall. For PrVa =70, heat is also being transferred to the 
centerline region. Physically, this would result in the centerline region heating. However, for the 
present thermally strong approximation ( Tq z =0), there is an “imposed thermal sink that 

maintains Tq constant. 


Axial Enthalpy Flow, Hj 

The first- order steady enthalpy flux is given by h } = T 0 p 0 u, + T 0 p } u 0 +p 0 T } u 0 , which after 
rearrangement becomes 

hj = To{Po“l + m>) + PoTi “0 (82) 


When integrated over the cross-sectional area, equation (82) is the enthalpy flow. It is important 
because it quantifies cooling, 


l 

Hj = j[7o(poMy + P l u o) + P()T l u o\ rc ^ r 
0 


(83) 


From the zero-net-mass-flow constraint (eq. (48)) and since Tq(z) is independent of r, the first term 
in equation (83) is zero. Recalling that p 0 = 1, the enthalpy flow becomes 


1 

Hj = jT]U 0 rdr 
0 


(84) 
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Figure 23. Comparison of ^(r) for BPT and OPT at z = 0 and z = 1 forFo —> 0 and Fo = 100. 

which shows that the mean -steady enthalpy flow at 0(e) is due to the time- averaged product of the 
oscillating temperature and the oscillating velocity. 

Using the equation of state, equation (84) can be rewritten in terms of the work flow pu, 

1 

H 1 = \( u l + Pl u o) rdr ( 85 ) 

0 
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which shows that the enthalpy has two work flow components: the product of the oscillating 
pressure and oscillating velocity, and work flow due to mean-steady streaming, P(juj, where po = 1 . 

Figure 24 shows enthalpy transport for the BPT. Shown are enthalpy flux fields hj(r,z ) for 
PrVa = 0.7, 7, and 70 and Fo -» 0 and Fo = 100. Corresponding plots for hj(r) are for z = 0 and 
z = 0.5, with hj =0 at z = 1. For the isothermal wall condition of Fo — > 0 , axial enthalpy flux 
decreases from z = 0 to z = 1 • 

For Fo = 100, there is a reversal of enthalpy flux in the vicinity of the wall. The enthalpy 
reversal results from the inability of radial temperature gradients to be generated because of the 
near- adiabatic wall conditions for Fo = 100, that is, sufficient heat cannot be transferred to the wall. 
Operating a BPT with high Fo is undesirable because of the large enthalpy flow reversal near the 
tube wall. 

Figure 25 shows the corresponding enthalpy transport for the OPT with U L = 1 and 
fa = -0.1. The plots of hj(r) are shown for z- 0, 0.5, and 1 . The OPT allows velocity oscillations 
at z = 1, which enable enthalpy to flow out of the tube, whereas in the BPT enthalpy flow goes to 
zero at z = 1 since the velocity goes to zero. For the case of PrVa = 0.7 and Fo — » 0, enthalpy flows 
in the reverse direction from z — 1 to about z — 0.6, showing that an OPT operating with isothermal 
walls and small PrVa is not desirable. 

In general, a BPT should be operated with the thermal diffusion length and tube radius sized 
so that PrVa =10 and the tube wall is near isothermal, Fo — » 0. The Fo — > 0 condition allows good 
heat transfer between the gas and wall so that the phase angles between the velocity and temperature 
are advantageous for enthalpy flow. The PrVa =10 condition sizes the gas domain so that all of the 
gas is efficiently transporting enthalpy. Figure 24 illustrates the enthalpy flux for these conditions. 

The OPT should be operated with the thermal diffusion region confined to a thin layer near 
the tube wall and the tube wall near adiabatic. These conditions correspond to large PrVa and large 
Fo. For the OPT, diffusion is no longer necessary in order to supply the correct phase angle between 
velocity and temperature. The phase angle is supplied by the velocity boundary conditions at the 
tube ends. An example of the enthalpy flux for these conditions is shown in figure 25 for PrVa= 70 
and Fo = 100. 

In figure 26, enthalpy flow Hj(z) is plotted for the BPT and OPT with U L - 1 and 
fa = -0.1 for PrVa = 0.7, 7, and 70; and for Fo 0 and Fo = 100. For the BPT (first column), 
adiabatic wall conditions (Fo = 100, dashed line) reduce enthalpy flow, particularly for large PrVa. 
For the OPT (second column), enthalpy flow is greater and more constant for adiabatic wall 
conditions. This is very apparent for large values of PrVa. 

The plots of figure 26 reiterate the previous assertion regarding heat transfer to the tube wall. 
For the BPT, heat transfer between the gas and the tube wall is necessary and desirable to allow for 
the proper phase angle between velocity and temperature, whereas for the OPT, heat transfer is 
undesirable. For the OPT, the phase shift is supplied by the velocity boundary conditions at the tube 

ends. 
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Enthalpy field for Fo — » 0 (top) and Fo = 100 (bottom) at z = 0 — ; z= 0.5 — for Fo — » 0 h/(r) at z - 0 — ; z- 0.5 — for Fo 





Figure 24. Enthalpy transport for BPT. 



Enthalpy field forFo — >0 (top) and Fo = 100 (bottom) f, t (r) at z=0 — ;z=0.5--;z=l for Fo-» 0 /i,(r) at z=0 — ; z=0.5 - -;z-l-< for Fo= 100 




Figure 25. Enthalpy transport for OPT with Uy = 1 and (fry = - 0 . 1 . 
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Figure 26. The effect of heat transfer on enthalpy flow , Hj(z),for the BPT and OPT for Fo —> 0 — ; 
Fo = 100--. 

The amplitude-squared dependence of the mean -steady quantities on leading-order velocity 
was previously mentioned at the beginning of this section. Although it has not been investigated 
here, Storch et al. found refrigeration to depend on the square of the pressure ratio, where the pres- 
sure ratio is defined as the maximum pressure divided by the minimum pressure (ref. 35). This is 
consistent with the results of the present study since, for a given frequency, the oscillating pressure 
depends on fluid displacement at the tube ends, which is the integrated velocity at leading order. 
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In figure 27, the area- normalized enthalpy flux versus (fry is plotted for the conditions of 
e= 0.1, Va = 250, Pr = 0.7, U L = 1.0, Fo = 20, and y= 5/3. The figure shows a peak in the area- 
averaged enthalpy flux at tpy ~ -0.25. This is reasonable considering that maximum mean -steady 
velocity streaming was seen in figure 18 to be at (fry ~ — 0.25. Kasuya et al. (ref. 68) measured 
optimum phase angles, and Radebaugh reported that for a typical OPT, <py 0.1 (ref. 11). How- 
ever, increasing the phase angle leads to increased velocities in the regenerator, which results in 
larger regenerator losses. Thus <j>y ~ -0.1 would be relevant for use as a system optimum. 



Figure 27. Area-normalized enthalpy flux versus velocity phase angle. Maximum occurs at 
<|)U ~ — 0.25. 


Discussion 


The calculated leading-order quantities for pressure, temperature, velocity, and heat transfer, 
the mean- steady velocity and enthalpy flux fields, and the mean- steady temperature give an 
understanding of the transport mechanisms for pulse tubes. 

The BPT is essentially a standing wave device, because there are no phase-angle gradients 
along the tube length. Phase shifts between velocity and temperature— required for enthalpy 
flow— are obtained through differences in the viscous and thermal diffusion lengths. The ratio is 
quantified in the Prandtl number. A BPT is able to operate when Pr < 1 ; the lower the Prandtl 
number the better. A Prandtl number of Pr = 1 results in zero enthalpy flow. 

The BPT should be operated with an isothermal tube wall to enable a large heat transfer 
between the gas and tube wall. This requires the Fourier number to be near zero, Fo 0. Operating 
a BPT with a large value for Fo (adiabatic wall condition) would result in enthalpy flow reversals 
(enthalpy flow from hot to cold ends) near the tube wall, a result of the inability of the work flow to 
convert to heat flow. Calculations also show that an isothermal tube wall reduces mass streaming 
relative to an adiabatic wall. Mass streaming has a negative affect on performance, because stream- 
ing directly transports hot gas to the cold end, and vice versa. This tends to destroy the axial 
temperature gradient. The tube radius of the BPT should also be sized to the thermal diffusion length 
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so that all of the gas is efficiently transporting enthalpy. The calculations show that to accomplish 
this, the Prandtl number times the Valensi number should be PrVa = 10 for the BPT. 

The OPT is more of a progressive wave device and so it does not rely on diffusion to obtain 
the appropriate phase angles between velocity and temperature. Phase angles are obtained through 
the velocity boundary conditions. The OPT should be operated with the thermal diffusion region 
confined to a thin layer near the tube wall. This condition requires PrVa and Fo to both be large. The 
calculated plots of mean-steady velocity show that large Fo reduces mass streaming relative to 
Fo — » 0. However, large Va tends to increase mass streaming. 

Operating at small PrVa and small Fo is detrimental to an OPT because heat transfer between 
the gas and the tube wall (1) reduces the oscillating temperature amplitude near the tube wall, and 
(2) creates unwanted phase angles between velocity and temperature. Both of these effects tend to 
reduce enthalpy flow. There is a practical limitation to having both PrVa and Fo very large, for these 
requirements lead to a system that must contain high pressures with a large diameter, thin -walled 
tube. Also, the compressor must be large to drive a larger system with a large tube diameter. 

An additional advantage of the OPT over the BPT is the ability to also have independent 
control of the velocity amplitudes. The large velocity amplitude of the OPT at the hot end of pulse 
tube {z — 1) allows much more enthalpy flow relative to the BPT whose velocity goes to zero. For 
the BPT, because of the steep velocity gradients along the tube, enthalpy flow is continuously being 
converted to heat flow along the tube at a high rate. The heat then flows back to the cold end as heat 
conduction. As a consequence, only a small amount of enthalpy flow arrives near the hot heat 
exchanger for rejection to the environment. For the OPT, because the velocity is finite at the hot end 
of the tube, more enthalpy flow can arrive near the hot heat exchanger. Larger amounts of enthalpy 
flow can then be rejected at the hot heat exchanger. 

Heat transfer between the gas and the tube wall has an important effect on the pressure and 
temperature phasors. When there is significant heat transfer between the gas and tube wall, 

Fo =0(1), the pressure and temperature phasors move out of phase relative to each other for both 
the BPT and OPT; calculations indicate this difference to be as much as 20°. This is important, 
because 1 -D models often assume adiabatic conditions on the gas and so there is a presumption that 
the temperature is always in phase with pressure. Most pulse tubes operate at Fo = 0(1), which is 
closer to isothermal wall conditions. 

At the tube ends, the complex Nusselt number is found to be independent of Fo, of the 
velocity amplitude ratio U L , and of the velocity phase angle (py. When written in the form 

Nu(PrVa) = A e 1 ^ , A is about 4 for PrVa < 3 and is linear with PrVa for PrVa > 25. The phase 
angle for PrVa < 0.5 is <p -0.5 and for PrVa > 500, <p -0.38. A similar relation for the 
complex shear wall factor exists, using only Va as the independent parameter. The complex Nusselt 
number and shear wall factor can be used for one-dimensional linear oscillating flow in a tube to 
account for radial heat transfer or shear at the tube wall. 

The axial velocity was found to be a complicated function of Va and <py . The mean -steady 
velocity increases linearly with Va for Va < 10, and can be of 0(1) for Va > 100. It is strongest 
when (py = -0.25. 
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In general, an OPT should be operated with large PrVa and <pu « -0.25. This maximizes 
mean-steady enthalpy flow. However, since mass streaming is of the same mechanism as the mean- 
steady enthalpy flow, losses owing to mass streaming and the destruction of the axial temperature 
gradient will also be maximum. Understanding the trade -off between mean- steady enthalpy flow, 
mass streaming, and axial temperature gradient requires a solution to the coupled zeroth-, first-, and 
second- order equations. That is left for future work. 


66 



5. EXPERIMENTAL MEASUREMENTS OF THE 
MEAN- STEADY PARTICLE VELOCITY 


A flow-visualization system was constructed to permit observation of particle flow patterns 
and measurement of particle velocities. In this section, the observed patterns are presented and 
interpreted within the framework of the anelastic solution. 


Experimental System 

A schematic of the experimental flow-visualization system is illustrated in figure 28. A clear 
polycarbonate tube (38.9 cm long, 2.22 cm i.d., and 2.54 cm o.d.) is filled with air at 1 atm mean 
pressure. Diaphragm compressors are attached to each end of the tube and are sealed from the 
ambient. The compressors are each driven by separate stepper motors capable of 25,000 steps per 
revolution. The compressor/motor assemblies can be independently controlled in order to adjust the 
relative phase angle between them. Three 0.00- cm stainless steel wires are strung across the tube 
diameter at the indicated positions, and a light oil is applied to the wires before operation. The 
surface tension of the oil is sufficient to hold a thin film on the wires. During operation, when the 
compressors are producing an oscillating flow, a short pulse of electrical current (~0. 1 sec duration) 
is applied to a wire. This quickly heats and vaporizes the oil from the wire. There is no combustion 
of the oil — only vaporization. The vaporized oil quickly cools and condenses into an oil fog or 
“smoke” that stretches across the tube diameter. One can now observe the leading-order oscillating 
flow and the secondary mean -steady flow of the smoke, which represent particle paths of the gas. 1 
A CCD video camera (30 frames/sec) is used to record the smoke flow patterns. 

Figure 28 also shows the physical dimensions of the system. The volume displacement of 
the two compressors is 13.5 cm 3 each, and the total system volume is 155.2 cm 3 , resulting in 
e = 0 .0435. The volumes of the connections between the compressors and tubes are converted into 
equivalent lengths by dividing the volumes by the connector cross-sectional area (3.88 cm 2 ). The 
range of speed of the compressors is 5 to 20 Hz. Smoke- wires are positioned at z = 1 1 .0 cm, 

20.4 cm, and 32.1 cm. The tube was oriented with the gravity force acting in the positive 
z- direction. During operation, the smoke is generally neutrally buoyant. 

When operating, the speed and the relative phase angle between the two compressors are 
fixed. The compressors are then started and allowed to come up to the final operating speed, at 
which time the video camera begins recording. After about 10 sec have elapsed (to ensure quasi - 
steady flow), the smoke- wire is pulsed with electrical current, and the smoke is seen to immediately 
leave the wire. Initially, when the smoke comes off the wire, it rises against the gravitational-force 
vector because of buoyancy, that is, the smoke is warmer (less dense) than the surrounding air. This 
condition exists for about 2 sec until the smoke temperature and the surrounding air temperature 
equilibrate. The video camera records the particle paths of the smoke at 30 frames/sec, and records a 
time tag on each frame. After the smoke dissipates, which takes from 20 to 80 sec, the system is shut 
down and reset for the next run. 


1 The “particles” tracked were more like “blobs,” diffuse yet distinguishable. 
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Figure 28. Schematic of the smoke-wire flow-visualization experiment. 


Coordinate positions of the smoke for each time were determined by digitizing each 
individual video frame. Particle velocities were determined from the coordinates and incremental 
times. The measured particle velocities were then compared with predicted values. 


Comparison with Theory 

Several runs were conducted to compare the experimentally measured mean- steady axial 
particle velocities with those predicted by equation (79). Table 6 summarizes the dimensionless 
quantities investigated. The BPT configuration was tested for varying Va, and the OPT configura- 
tion was tested for varying Va and <py. There was no independent variation of Cf. because the 
velocity boundary conditions defined by U ^ should have no unusual effects on Up {r,z) since 
Up(r,z) is simply linear along z. There was also no variation in Fo since Fo « 1 for any of the runs 
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(isothermal wall conditions). The following section presents and compares the experimental results 
against calculations. The code for computing the solutions is given in appendix G, and the data are 
tabulated in appendix H. 


Table 6. Range of dimensionless numbers investigated 


Run 

1 

2 

3 

4 

5 

6 

Configuration 

BPT 

BPT 

OPT 

OPT 

OPT 

OPT 

Evaluation 

Velocity 

Velocity 

Observation 

Observation 

Velocity 

Velocity 

€ 

0.0434 

0.0434 

0.0434 

0.0434 

0.0434 

0.0434 

Va 

34 

103 

137 

137 

68 

68 

M 

1.66 x 10' 3 

5.06 x 10" 3 

6.7 x 10~ 3 

6.7 x 10~ 3 

3.14 x 10~ 3 

3.14 x 10~ 3 

A 

4.5 x 10~ 5 

4.13 x 10' 4 

7.3 x 10" 4 

7.3 x 10~ 4 

1.62 x 10 -4 

1.62 x 1 0' 4 

Vl 

0 

0 

1 

1 

1 

1 

<Pu 

n/a 

n/a 

- 0.5 

- 0.94 

- 0.254 

- 0.125 


Basic Pulse Tube Configuration 

Axial particle velocities u p (r,z) were measured near the centerline of a BPT configured 

system for Va = 34 and Va = 103. The measured velocities were in the vicinity of the centerline 
region. 

Run 1: BPT, Va = 34 

Figure 29 shows the mean-steady particle path and particle velocity of a smoke particle. This 
is shown by plotting the axial particle velocity u p (r,z) at the specified r and z positions and compar- 
ing this with the calculated u p {r,z) given by equation (79). Figure 29(a) shows the calculated flow 
field u p {r,z), figure 29(b) plots u p (r) and v p (r) at z = 0, and figure 29(c) compares the measured 
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values of u p (r,z) with those predicted by theory. The ordinate of figure 29(c) gives the measured 
and calculated values for u p {r,z), and the corresponding r and z coordinates. The abscissa identifies 
the corresponding time for each u p (r,z)- Figure 29(c) shows that the calculated velocities are in 

general agreement with the measured values in terms of speed and direction. Velocities are positive 
for the particle coordinate range r « 0.2 to 0.24 and z « 0.67 to 0.72. As time progresses, the particle 
moves toward z = 1, as shown by the flow field in figure 29(a). Since the particle is at r - 0, there is 


Fig, (a) Steady velocity fields u^(r,z) 


Fig- (b) u p (r)— atz=0; v p (r)-~ 




Figure 29. Particle velocity for BPT, e = 0.0435, Va = 34 \,JJ L = 0: (a) particle velocity field, 
Up(r,z); (b) calculated component velocities u p (r) and v p (r) atz = 0; (c) plot of measured 
particle coordinates, and measured and calculated axial particle velocity u p {r,z)for corresponding 
elapsed times. 
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no radial flow component and so the particle remains at r = 0. It is unclear why the measured 
velocities decrease to zero for elapsed times greater than 35 sec although it may be a result of 
inaccurate particle tracking, since the smoke dissipates as time progresses. 

Run 2: BPT, Va = 103 

The particle flow field shown in figure 30(a) shows that for higher Va a double boundary 
layer is formed. Figure 30(b) shows that the velocity in the inner layer (r = 0.8 to 1) is negative, then 
reverses in the outer layer (r = 0.38 to 0.8) to positive, then again reverses itself in the centerline 
region (r = 0 to 0.38) back to negative. A positive and negative radial flow maintains mass 
conservation. 

The measured u p (r,z), the calculated u p (r,z), and r and z coordinates at the given time 

intervals are plotted in figure 30(c). The measured negative velocities are in the centerline region 
and are comparable to those predicted. The larger negative velocities measured at the initial points 
are a result of the buoyancy forces present after the initial pulse. As time progresses, the temperature 
equilibrates between the smoke and the air, and so the velocity levels off. 

The presence of the inner and outer layers of the double boundary layer predicted by theory 
could not be confirmed experimentally. This is because the smoke did not distribute itself in either 
of these two layers after pulsing. The simplicity of these experiments did not allow for observation 
of velocities throughout the entire field. Future work — perhaps with laser Doppler or anemometer 
velocity measuring instruments — will allow for further validation. 

Orifice Pulse Tube Configuration 

Orifice pulse tube observations 

Mean- steady secondary flow observations for an OPT configuration are described for 
Va= 137, U L = 1.0 with <pu=~ 0.5 and <t>u = ~ 0.94. The observed smoke flow is in qualitative 
agreement with the predicted particle velocity fields. 

Run 3: smoke flow observations for <f>u = -0.5 

Figure 31 shows the observed steady flow for Va = 137, Ui = 1, and <pu = ~ 0-5. 

Figures 31(a) and 31(b) predict large negative radial velocities at r = 0.4 and large axial velocities in 
both the negative and positive directions symmetric about z = 0.5. This is verified from the smoke 
observation data shown in figure 3 1 (c) where the two smoke lines are seen to “stretch” in the axial 
direction and “compress” together in the negative radial direction. This is predicted by the particle 
velocity field of figure 31(a), and is an indication of the presence of the outer layer and centerline 
flow regions. Unfortunately, smoke did not distribute near the tube wall, so the presence of the inner 
layer could not be directly confirmed. 
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Fig. (a) Steady velocity fields u p {r,z) 


Fig. (b) u p (r) — at z = 0; v p {r) 



Fig. (c) Comparison of measured and calculated u p (r,z) 



Figure 30. Particle velocity for BPT, £ = 0.0435, Va = 103, Ui - 0: (a) particle velocity field, 
u p {r,z); (b) calculated component velocities u p {r) and v p {r) atz = 0; (c) plot of measured 
particle coordinates, and measured and calculated axial particle velocity u p (r,z) for corresponding 
elapsed times. 
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Fig. (a) Steady velocity fields u p (r,z) 


Fig. (b) u p (r) atz = 0 — ; 
u p (r) «z = 1 — 5 Vp(r) — 



Figure 31. Particle velocity for OPT, e = 0.0434, Va - 137, Ui = 1, <t>u = — 0.5: (a) particle velocity 
field, u p (r,z); (b) calculated component velocities u p (r ) at z = 0 and z = 1 and v p (r); (c) observed 

smoke flow at indicated times. The observed flow is seen to stretch axially and compress radially as 
predicted by the flow field of (a). 

Though the smoke -wire is positioned at z ~ 0.5, the observed smoke flow shows that at 
t = 53: 1 5:01 , the smoke is skewed at a location z < 0.5. This is because of the buoyancy effect 
immediately after the smoke is pulsed. Also, we would expect the flow to be symmetric about 
z = 0.5, hence, we would not expect the smoke to cross the z = 0.5 plane. However, at t > 53:21 :01, 
smoke can be seen at locations z > 0.5, possibly because the smoke was of a slightly higher density 
than the air, or because of the instability of a purely zero velocity plane at z = 0.5. This second 
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possibility would allow smoke to cross at z = 0.5, allowing the smoke to get caught in the positive 
direction centerline flow fields for z > 0.5. 

The smoke observations are seen to “curve” at the ends of the tube. This is because the 
connections from the compressors to the visualization tube are at right angles. The curved flow is 
generally restricted to z < 0.3 and z > 0.7. Flow measurements are taken within the range of 
0.3 < z < 0.7. 

Run 4: smoke flow observations for <(>u = - 0-94 

Figure 32 shows the observed steady flow for Va = 137, U L - 1, and <pu=- 0.94. 

Figures 32(a) and 32(b) show strong positive velocities in the centerline region and negative 
velocities in the viscous layer near the tube wall. Radial velocities are very small. Figure 32(c) 
shows that the observed smoke flow qualitatively confirms the model. The observed flows are in 
the centerline region and are seen to quickly flow in the positive direction with little radial displace- 
ment, except near the positive end (z = 1) where the curved flow due to end effects begins to 
compress the pathlines. 

Orifice pulse tube measurements 

Mean -steady particle velocity measurements were taken near the centerline and within the 
viscous layer near the tube wall for an OPT configuration for Va = 68, U L = 1 with <j>u = -0.254 , 
and <j>(j =-0.125. Particles were observed flowing with the directional sense and speed as predicted 
by equation (79). Circulating flow from the centerline region to the viscous layer near the tube wall 
was observed; it also was in general agreement with predictions. 

Run 5: particle velocity measurements for <pu = - 0.254 

Centerline and viscous layer flow near tube wall 

Figure 33(a) shows the measured and predicted velocities for flow in the centerline region. 
Calculations correspond well with measured values. The measured velocities at times greater than 
18 time -increments (1.8 sec) are due to the curved flow end-effects as described in the observation 
section. The inlets to the tubes from the compressors are at right angles to the tube, and so the 
flow is curved at the tube ends. This results in a significant particle position change in r as z 
approaches 0.3. 

Figure 33(b) shows the five -point moving average of axial particle velocity in the viscous 
layer near the tube wall. Although there is scatter in the data, the results are still in general 
agreement with prediction. 
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Fig. (a) Steady velocity fields u p (r,z) Fig. (b) u p (r) at z - 0 ; 

u p {r) atz= tJ p (r) 



Fig. (c) Time elapsed observed mean -steady particle flow 


► 9 0:48:21:25 


► 9 0:48:24:25 


0:48:22:25 


► 9 0:48:25:25 


9 0:48:23:25 ► 9 0:48=26:25 


Figure 32. Particle velocity for OPT, e = 0.0435, Va = 137, U L = l,<bu = ~ 0.94: (a) particle 
velocity field, u p {r,z); (b) calculated component velocities u p {r) atz = 0 and z - 1 and V p {r); 

(c) observed smoke flow at indicated times. The observed flow is seen to stretch axially in the 
positive direction with little radial displacement, as predicted by the flow field of (a). 
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Figure 33. Particle velocities for OPT at indicated r and z positions for corresponding elapsed 
times: £ = 0.0435, Va = 68, U L = 1, <j>u = - 0.254; (a) is measured and calculated axial velocities 
Up(r,z) at centerline; (b) plot is measured and calculated axial velocities Up(r,z) in the viscous 

layer 
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Circulating flow between centerline region and viscous layer near tube wall 

Figure 34 shows the flow for an OPT configuration with Va =68, Ui = 1, and <pu=~ 0.254. 
The flow field of figure 34(a) shows negative flow in the centerline region and positive flow near the 
wall. Figure 34(b) predicts a radial component of flow that is significant between r 0.5 and r 0.8. 
The radial velocity allows for flow reversal where fluid particles can move from the negative axial 
flow region to the positive axial flow region. 


Fig. (a) Steady velocity fields u p (r,z) R& (b) u p (r) at z = 0 — ; 

Sp(r)atz= 1--; v p (r)--~ 



Fig. (c) Comparison of measured and calculated u p (r,z) 



Figure 34. Particle velocity for OPT, £ = 0.0435, Va = 68, Ui = 1» <Kj = - 0.254: (a) particle 
velocity field, Up(r,z); (b) calculated component velocities u p (r ) at z = 0 and z = 1 and v p {r); 

(c) plot of measured particle coordinates, and measured and calculated axial particle velocity 
Up (r,z) for corresponding elapsed times. 
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Figure 34(c) plots the measured and calculated velocities of equation (79). The data confirm 
flow reversal between the negative-flow centerline region and the positive-flow viscous layer near 
the tube wall. Particles, initially at r * 0.42 and z * 0.45 have negative velocities. As time progres- 
ses, the positive radial component of flow moves the particles outward toward the viscous layer 
which has positive velocities. The particles enter the viscous layer region and so reverse from 
negative to positive flow. Equation (79) predicts reasonably well both the magnitude and direction 
of the particle velocities, and the location at which the particles flow from the negative to the 
positive velocity regions. 


Run 6: particle velocity measurements for <pu = -0.125 

Figure 35(a) shows the mean-steady particle velocity field and figure 35(b) shows a plot of 
the axial and radial particle velocities for an OPT with Va = 68, 0 ^ = 1, and <pu = ~ 0.125. The flow 
field is negative in the centerline region and positive in the viscous layer near the tube wall, with 
radial flow significant between r — 0.5 and r = 0.8. This is similar to the previous case in which 
^U- -0.254. However, the magnitude of the flows is about 30% less than for (f>u= -0.254. The plots 
of figure 35 are the predicted fields for the data presented in figures 36 and 37. 


Fig. (a) Steady velocity fields Up(r,z) 


Fig. (b) u p (r) at z = 0 — ; 
«p( r ) 312 = 1 — > Vpi r ) 



Figure 35. Particle velocity for OPT, e = 0.0435, Va = 68, U L = 1, <t>u = — 0.125: (a) particle 
velocity field, u p (r,z); (b) calculated component velocities u p {r) atz = 0andz = 1 and v p {r) 


Flow near centerline 

Figure 36 shows the measured and predicted velocities for the centerline region. The data for 
elapsed times greater than 15 time- increments are again due to the flow end-effects as described 
previously. The measured results are in general agreement with prediction. 
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Figure 36. Plots of measured and calculated axial particle velocity u p (r,z) at the indicated r and z 

coordinates and given elapsed times for OPT in the centerline region, £ = 0.0435, Va = 68, Ui = \, 
<| )\j = - 0.125. 


Circulating flow between centerline region and viscous layer near tube wall 

Figure 37 shows the measured axial velocity and position corresponding to the calculated 
results of figure 35. Figure 37(a) shows a plot of the results for one-half of the radial domain and 
figure 37(b) is a plot of the results for the other half. 2 Figure 37 shows flow reversal between the 
centerline region and the viscous layer near the tube wall. The calculated velocity using equa- 
tion (79) shows good prediction of axial particle speed and direction. There is also good prediction 
in the transition region where flow goes from being negative to being positive. The transition from 
negative to positive flow is not as steep as that for the case of <Pu-~ 0.254, figure 34(c). This is due 
to the much smaller radial velocity in the flow-reversal region between r * 0.5 to r * 0.6 of 
figure 37. 


2 The smoke comes off the wire nearly axisymmetric within a single plane perpendicular to the camera view. 
Subsequently, two “smoke blobs” can be tracked, one on either side of the centerline. 
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- 0.4 

Figure 37. Plots of measured and calculated axial particle velocity u p {r,z ) at given elapsed times 

for OPT, e = 0.0435, Va = 68, U L = 1, and ( )>u = - 0.125: (a) is data from half the tube; (b) is data 
from the other half of the tube, symmetric about r = 0. 



elasped time (0.1 second increments) 
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Discussion 


The measured and observed axial velocities of smoke particles were well predicted by the 
particle velocities given by equation (79). These results provide confidence that the present theory is 
valid and useful. 

The measured direction and magnitude of the axial centerline velocities were predicted for a 
BPT configuration in which the only variable parameter is Va. For Va = 34, the axial velocities in 
the centerline region were positive. For Va = 103, the axial centerline velocities were negative, 
which is in agreement with prediction. For Va = 103, a double boundary layer is predicted. Unfor- 
tunately, this could not be confirmed with the present system. Future work using more precise 
methods of measuring velocities over the entire flow field should be conducted to further validate 
the theory. 

OPT operation adds U L and <j)(j to Va as variable parameters. For the OPT experiments, U L 
was set to 1 , and Va and < py were allowed to vary. OPT observations of the secondary streaming for 
Va = 137 and <j>i y = -0.5 were in good qualitative agreement with predictions. The smoke was 
observed to stretch axially owing to opposite flow between the outer layer and centerline regions. 

The smoke also was seen to compress radially because of a radial flow component between the outer 
layer and centerline region. This stretching and compressing was predicted by theory. Observations 
for a change in velocity phase angle, (py = —0.94 while retaining Va = 137 showed strong positive 
streaming in the centerline region with little radial flow; this was also predicted. 

Measurements of the axial velocity were taken for an OPT configuration, and compared with 
theory. Once again, the predictions were in good agreement with measurements. For Va = 68 and 
(j>U= -0.254, smoke that began in the centerline region was observed to flow in the negative axial 
direction and positive radial direction. Upon entering the viscous layer near the tube wall, the smoke 
reversed itself and flowed in the positive axial direction. The speed and direction of this axial flow 
were well predicted. Also predicted were the coordinates at which the flow reversal occurred. At the 
point of flow reversal, a strong radial velocity was predicted and verified. 

A change in the phase angle <py = -0.125 showed the same type of flow reversal as for 
<pu= -0.254. In this case a weaker radial velocity at the point of flow reversal was observed, and the 
axial speed and direction were again well predicted by equation (79). 

In general, the measured secondary mean -steady particle velocities obtained from the flow- 
visualization experiments indicate that the present linear theory is applicable, and can be cautiously 
extended to £Va 1 . Though this is beyond the eVa « 1 constraint for linearization of the momen- 
tum equation, a case can be made — from the present flow-visualization experiments that the theory 
is useful for engineering calculations in the region £Va = 0(1), and that the theory can be used to 
help understand the transport mechanisms, particularly mass streaming and enthalpy flows, in 
pulse tubes. 
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6. CONCLUDING REMARKS AND FUTURE WORK 


The present study formulates a set of two-dimensional, axisymmetric differential equations 
for describing mean -steady secondary flows generated by periodic compression and expansion of an 
ideal gas in a pulse tube. An anelastic approximation of the fluid equations — mass and energy 
conservation, and the equation of motion — is used to construct a consistent set of linear differential 
equations amenable to a series-expansion solution in the small parameter £, where £ is the inverse 
Strouhal number and is the ratio of gas displacement length to tube length. The anelastic approach 
applies when shock and acoustic energies are small compared with the energy needed to compress 
and expand the gas. Other parameters resulting from the formulation are the Valensi number, Va, 
relating system transverse length to viscous diffusion length; the Prandtl number, Pr; the Mach 
number, M; the velocity amplitude ratio at the tube ends; and the velocity phase angle at the tube 
ends. Additionally, heat transfer to a tube wall that has thin but finite thickness is considered, thus 
introducing the tube wall Fourier number, Fo. 

The elasticity parameter A relates £ and M and is used to order the pressure gradient in the 
momentum equation. It is the product of Mach number and the ratio of the oscillation frequency to 
the system acoustic resonance frequency, and is useful for identifying the distinguished limit 
between £ and M. A linear acoustic set of equations results when A = 0(1) and £ « 1. This 

corresponds to a distinguished limit of M = £° 5 . An anelastic set of equations results when 
A < £ « 1. This corresponds to a distinguished limit of M < £. For pulse tubes, A « £ « 1, which 
is the limit used in this study. Additionally, a linear approximation of the momentum equation is 
taken. This requires the added constraint £Va « 1. 

The derived set of leading-order relations requires simultaneous solution of the zeroth-, 
first-, and second -order set of equations. The zeroth -order temperature — which is the equilibrium 
bulk temperature — is coupled to the zeroth-order equation of state, the first-order oscillating 
advection of enthalpy, and the second -order mean -steady conversion of work flow to heat flow. The 
full problem is nonlinear and requires solving 15 equations in 15 unknowns — an ambitious task left 
for future work. 

In determining the lower-order mechanisms for the mean -steady transport of momentum and 
enthalpy, a solution to the equations is obtained for the strong temperature case Tq z - 0 . This 

effectively decouples the three separate orders of equations, leaving for the basic state problem the 
first-order oscillating equations, which are completely self-contained. 

The oscillating solution is used to compute oscillating heat transfer and shear at the tube 
wall. It is found that the complex Nusselt number, relating the ratio of conduction heat flux at the 
wall to bulk temperature difference between the gas and tube wall, is independent of the Fourier 
number and of the velocity boundary conditions at the tube ends. This also applies to the wall shear 
factor, which is similarly defined as the ratio of momentum flux to bulk velocity difference. The 
complex Nusselt number and shear wall factor are simply scaled by the Prandtl number. The 
usefulness of these two relations is to correct for transverse heat transfer and wall shear when used 
with a 1-D model. 
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The leading-order oscillating solution is taken to the next higher order to arrive at the mean- 
steady solutions for the Eulerian and Lagrangian velocity fields, the enthalpy flow field, and the 
mean-steady radial temperature profile. These are each examined as functions of Va, U L , <pu , 
and Fo. 

Plots of the velocity fields for the basic pulse tube (BPT) and orifice pulse tube (OPT) 
configurations show complicated flow patterns. The flows are highly dependent on Va and <pu- 
Examination of the higher-order mean -steady velocity equation shows that the Reynolds stress and 
the quadratic product of oscillating density and oscillating velocity produce the steady secondary 
streaming. The streaming depends on gradients of the velocity amplitude and phase angle. In 
general, the leading-order solutions for all properties (temperature, pressure, velocity) depend on the 
velocity amplitude; hence, for any mean -steady quantity the magnitude will depend on the square of 
the velocity amplitude. 

Plots of the enthalpy flux field show the effect of heat transfer with the tube wall. For a near 
isothermal wall (Fo 0), gradients in the enthalpy flux result in mean-steady heat transfer to the 
tube wall. This can be seen in the mean -steady enthalpy equation where the work flux is balanced 
by heat flux. Under these isothermal wall conditions, the thermal and viscous diffusion layers are of 
the same form, both pinned at the wall, and scaled only by the Prandtl number, which for most cases 
is of 0(1) but not equal to 1 . This allows a unidirectional flow of enthalpy for the BPT, because the 
difference in viscous and thermal diffusion lengths enables a favorable phase angle between velocity 
and temperature. Alternatively, for a BPT with Pr = 1 , the phase angle between velocity and 
temperature is 90°, hence enthalpy flow is locally zero everywhere. 

The OPT overcomes the necessity of heat transfer by obtaining appropriate phase angles 
through the axial velocity boundary conditions. This allows favorable phase angles to be present 
throughout the entire transverse domain, whereas for the BPT, phase angles are favorable only in the 
diffusion layer. Also, the inclusion of a finite velocity at the hot end of the tube allows a finite 
enthalpy flow at this end, whereas for the BPT the enthalpy flow goes to zero. The velocity 
boundary conditions also allow a more constant enthalpy flux throughout the axial domain (when 
compared with the BPT). Hence, there is less conversion of work flow into heat flow along the tube 
length, and so more of the work flow is available for enthalpy flow to the hot heat exchanger for 
rejection. (For the BPT, the steep decrease in work flow results in a large heat flow that is conducted 

back to the cold end.) 

The experimental smoke -wire flow-visualization experiments confirmed the predictions of 
the present theory. The system was configured for BPT and OPT operation, with Va varied for both, 
and <pu varied with U L = 1 for the OPT. The experiments were conducted in the range 
1.5 < eVa < 6, which is not strictly within the constraint eVa « 1 required for linearization of the 
momentum equation. However, for all cases examined, the calculated particle velocities 
satisfactorily described the observed and measured experimental particle velocities, including flow 
reversals between the centerline regions and diffusion layers, and the locations at which flow 
reversal occurred. 

The major points of this study can be summarized as follows. 

1. Basic pulse tubes should be operated at Fo ^ 0 and PrVa = 10. The first condition represents an 
isothermal tube wall, thereby allowing good heat transfer between the gas and the tube wall, and 
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the second condition ensures that most of the gas is efficiently used to transport enthalpy. 
Calculations also show that an isothermal wall reduces mass streaming relative to an adiabatic 
wall for a BPT. 

2. Orifice pulse tubes should be operated for large Fo and large PrVa. The first condition represents 
an adiabatic tube, thereby reducing heat transfer between the gas and the tube wall, and the 
second confines the diffusion layer to a thin layer near the wall. Calculations also show that an 
adiabatic wall reduces mass streaming relative to an isothermal wall at large PrVa. However, 
large Va tends to increase mass streaming. Maximum enthalpy flow for orifice pulse tubes was 
shown to be at a phase angle of <py = -0.25. 

3. The mean-steady velocity increases linearly with Va for Va < 10 and can be of 0(1) for 
Va> 100. It is strongest when <py = -0.25. 

4. The complex Nusselt number can be used for one -dimensional linear oscillating flow in a tube to 
correct for radial heat transfer. It is of the form Nu(PrVa) = A e‘^ and is independent of Fo, 
velocity amplitude ratio U i, and velocity phase angle (/>y at the tube ends. A is about 4 for 
PrVa < 3 and is linear with PrVa for PrVa > 25. The phase angle, for PrVa < 0.5 is (p — » -0.5, 
and for PrVa > 500 is <p — > -0.38 . A similar relation for the complex shear wall factor exists 
using Va as the independent parameter. 

5. Heat transfer between the gas and the tube wall can shift the phase between the pressure and 
temperature phasors. This is important because 1-D models often assume adiabatic conditions on 
the gas and so there is a presumption that temperature is always in phase with pressure. Most 
pulse tubes operate at Fo = 0(1), which is closer to isothermal wall conditions. Calculations 
indicate the phase shift between pressure and temperature to be as much as 20°. 

6. The calculated particle velocities using the linear anelastic approach were supported by the 
measured velocities from the flow- visualization experiment for 1.5 < eVa < 6, even though this 
is not strictly within the linear constraint eVa « 1. 

Though this first attempt to verify the theory has proved relatively successful, there is 

considerable room for further validation and improvement. Possible areas for future study include 

the following. 

1 . A numerical solution to the full coupled set of equations. This would yield the leading-order 
equilibrium temperature To , and allow a better understanding of how mass streaming affects the 
To temperature gradient, the trade-offs between enthalpy flow and heat flow, and the ability to 
optimize pulse tube operation by calculating entropy generation due to temperature gradients. 

2. Extending the theory to individual components, such as regenerators, heat exchangers, and 
inertance tubes; and adding lumped-parameter boundary conditions to model an orifice and 
reservoir. Once accomplished, a modular approach for constructing a pulse tube engineering 
model from component level modules would be available. 

3. A solution of the equations with different boundary conditions would yield some interesting 
insights. For example, a solution for the case of a slowly varying tube diameter could be used to 
reduce streaming losses, since streaming is a function of velocity gradients. Another example 
would be to relax the no-penetration condition at the tube wall and probe how this might affect 
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enthalpy and mass streaming; and whether such results could be used to design a “continuous - 
stage” pulse tube. Finally, the isothermal temperature conditions at the tube ends can be re-cast 
as an oscillating temperature boundary condition to determine how the temperature phasor 
would be affected. This boundary condition would reflect heat exchanger ineffectiveness. 

4. The use of laser- Doppler velocimeters or hot-wire anemometer velocimeters to measure local 
velocities over the entire domain. This would substantially validate the accuracy of the linearized 
approach and the limits at which it breaks down. 

5. The theory can be extended to other types of oscillating systems in which one is interested in the 
mean-steady streaming generated by oscillating flows. For example, an expansion of the 
conservation equations for individual species of multi-component mixtures can be performed to 
determine species streaming. Its usefulness would be in understanding species separation. 

The formulation of the present set of anelastic equations, and the relative success of the 
strong-temperature solution in predicting mean -steady particle streaming provide a measure of 
confidence that the present theory can be used to design pulse tubes and to predict their 
performance. 
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APPENDIX A 
SCALING 


The governing fluid equations that describe the flow dynamics of the tube are scaled. A 
sketch of the system is shown in figure 38. Two problem domains are taken: the gas domain extends 
from r = 0 to r = r' w and z = 0 to z* = L* (starred variables are dimensional quantities); and the 

tube-wall domain extends from y* = 0 to y* = /* and from z* = 0 to z — L , where / is the tube- 
wall thickness. Adiabatic conditions exist for the outer wall surface, and continuity of temperature 
and heat flux must exist between the gas and the tube-wall interface. The velocity boundary condi- 
tions are of small amplitude and periodic so that time can be represented using complex notation: at 

z* = 0, u = U' 0 e i(O ; and at z = C , u = U' L e^° 1 + ^ where to* = 2 nf is the angular frequency 
and /* is the frequency, t' is the time, <j>u is the velocity phase angle between the tube ends, and U' 0 
and U' L are the velocity amplitudes at each end. The energy boundary conditions at the outer tube 
wall are adiabatic, with the temperature at z' = 0 and z = F taken as T’ = T c and T = T h , 
respectively. We will refer to the z- direction as the axial direction, and the r - direction as the 
transverse direction, and use %.r\ = ^Xl^ r l as the notation for partial derivatives. 



at r*= 0, 


ADIABATIC AT WALL 
OUTER SURFACE 

TUBE WALL 
DOMAIN 

r ZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZZ\ , GAS 

DOMAIN 



= 0 
* 


Th 


at r*= 0, 

U L *e‘(0}*t*+<Pu) 


Figure 38. Two-dimensional axisymmetric system for r w / L « 1. 


The fluid equations of Bird et al. (ref. 64) are reduced for our system using the following 
simplifying assumptions: (1) two-dimensional, axisymmetric cylindrical geometry; (2) ideal 
gas; (3) constant transport properties; (4) Stokes assumption for the second viscosity; and 
(5) / L* 2 « 1 (implying that dp' /dr ~ 0 so that the r- momentum equation can be decoupled 

from the rest of the problem and axial viscous transport is negligible). The reduced fluid equations 
for mass conservation, equation of motion, energy conservation, and equation of state become, 
respectively. 


( pvr *) * 

p/+ r * ,r + (p u \ z '-° 


(Al) 

,r . . . . . 1 . u’ / . . \ 

n u * + V u » + u u * = — p * H — r t u ,• , 

r l .( <r ,z J <z f \ •' 

(A2) 
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* 

p*c;[r. + vTy + u'Ty ] = -(/y + upy ) + y(rTy ) + KT-r y + p 'll'} (A3) 


P=pR'T' 

The energy conservation equation for the tube-wall domain for /*« r w is 


p'wCp W dy = + 0* z y ) ( A5 ) 

where 0 is the temperature of the tube wall. The mean-steady (time -averaged) enthalpy flow is of 
primary interest since it represents refrigeration, 

f r* ^ 

H' -2k(o" | [p'u'C'pT'rdr dt * (A6) 

Mo 

where the overbar represents time-averaged over a cycle. The kinematic velocity components in the 
z* and r" direction are u' and v'; the thermodynamic gas variables p\ p\ and T are pressure, 
density, and temperature; the density of the tube wall material is p w \ gas properties, p , k , and C p , 

are the dynamic viscosity, thermal conductivity, and heat capacity; and the tube-wall properties, k w 
and C pw , are the thermal conductivity and heat capacity of the tube wall. 

The above dimensional equations are scaled (normalized) resulting in dimensionless 
variables ranging from 0 to 0(1) (order 1). The variables are scaled as follows: r* is scaled with r M . , 
z* is scaled with L\ y * is scaled with the tube-wall thickness /*, and t’ is scaled with the angular 
frequency to*; u is scaled with the axial boundary condition velocity U' 0 ; v 0 is scaled with 
(Uor w /£); and p\ p\ and T\ are scaled with mean pressure p’ 0 and reference density and 
temperature p'g and Tq. The transport properties p\ k\ C‘ p , k" w and C* pw , and the tube- wall density 
p' w are taken as constant and so they are in themselves the scaling factors. These scaling parameters 
are substituted into the dimensional equations (A1)-(A6) and rearranged to give the corresponding 
dimensionless form (unstarred variables are dimensionless ) for mass conservation, equation of 
motion, energy conservation, equation of state, tube-wall energy conservation, and mean- steady 
enthalpy flow, 

Plt M +W L (A7) 

r 

r , Ml . 1 K ),r 

p[u, + e(vu r + uu t )\ = - - p. z + — — — <A8) 


p[r. , + A vT .r + “ T -z )] = + eup ^ + 


Kr) 


M 2 7 


7^+^ (A9) 


p = pT 


(A10) 
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(All) 


*r 


= Fo 




r 2 

+ L -l 0,zz 


\ 

/ 


H = coj 


jpuTdt 
l\/w 


dr 


(A 12) 


The mean-steady enthalpy flow of the gas, equation (A12), is scaled by the leading-order 
oscillating enthalpy flow, Hq = nr‘^pQC' p UQT). The above set of equations identifies six dimen- 
sionless scaling groups, five of which are independent. Two additional dimensionless groups, <ptj 
and U^, enter through the boundary conditions. The dimensionless groups are listed in table 7 along 
with their physical interpretations. The relative magnitudes of the groups provide an understanding 
of the importance of the various effects (friction, heat transfer, compressibility, etc.). 


Table 7. Dimensionless scaling groups. 



Name 

Definition 

Length scales 

Time scales 

£ 

Inverse Strouhal 
number 

u’ 0 /(c>’l")=4/l‘ 

Displacement length to 
tube length 

Period of oscillation to 
residence time 

X 

Acoustic 

resonance 

parameter 

y M 2 Un L'(o' 

= 7 . . 

£ a a 

Mach number times ratio 
of sound wavelength to 
system length 

Mach number times 
ratio oscillation to 
resonance frequency 

Va 

Valensi number 

*2 * 1 * 
'•> / ^ 

Transverse system length 
to viscous diffusion length 

Viscous diffusion time 
to oscillation time 

Pr 

Prandtl number 

V fo.' 

Viscous to thermal 
diffusion lengths 

Thermal diffusion to 
viscous diffusion times 

M 2 

Mach number 
squared 

v'oh RT o 

Ratio of velocity 
amplitude at z = 0 to speed 
of sound 

Period of oscillation to 
acoustic time 

Fo 

Fourier number 


Thermal diffusion to tube 
wall thickness 

Oscillation time to 
thermal diffusion time 
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The numbers also represent time ratios. If the residence-time scale is L* / U 0 (time in which 
a particle of velocity U ' 0 travels the length of the tube L') then £ is the ratio of the velocity time- 
scale to the residence time-scale. Va is the ratio of viscous diffusion time-scale to velocity time- 
scale, Pr is the ratio of thermal-to-viscous diffusion time-scales, and M is the ratio of acoustic 
time-to-residence-time scales. 
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APPENDIX B 
PARTICLE VELOCITY 


For a two-dimensional system, the two directional components of the mass flux vector pu 
can be combined into a single scalar function — the stream function if / — which exactly satisfies the 
differential equation for mass conservation. For the case of axisymmetric cylindrical geometry, the 
stream function is defined as - if/ r = pur, and + if/ z = pvr where r and z are the radial and axial 

directions and v and u are the corresponding directional velocities. 


The stream function represents lines of mass flow. For truly steady-state flow, the loci 
of points where the derivative of the stream function is zero ( dif /= 0) represents lines of 
constant mass flow (dy/ = pudA = dm = 0) or streamlines. A parametric plot for the condition 
dif/ = purdr = pvrdz = 0 over the domain gives the streamlines, with the difference between any 
two streamlines being numerically equal to the difference in mass flow between those two lines. 

Streamlines in the Eulerian reference frame for steady-state flow also represent particle 
paths. However, for the oscillating flow investigated in the experiments, Eulerian mean -steady 
streamlines are not equivalent to mean-steady particle paths. The mean-steady particle paths are 
best represented in the Lagrangian reference frame because — as in the experiments — it is the visual 
tracking of a distinguishable particle over time. Here we derive the equations for the particle path. 

The exercise here is to determine the particle velocity field Up(x,t), given the Eulerian 

velocity field 11 (x,i) . Consider a particle at position x and time t that initially was at position xo at 
time / = 0. Its velocity is 


u (x,t;x 0 ) = u 


x 0 + J u />( x - ?) dx,t 


(Bl) 


It is understood that for any given position and time, the velocity of a particle is equal to the 
Eulerian velocity, 

u p (x,t) = 11(x,t) (B2) 


hence equation (B 1 ) is 


u p (x,f,x 0 ) = V. 


t \ 

x 0 + Ju^x, t) dx,t 

K 0 


(B3) 


For small particle displacements (small time increments) of O(e), equation (B3) can be expanded in 
a Taylor series, about xq, 
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Now Ti and are both expandable in e, 

'U{xj) = V < ) + ell; + o[e 2 ^ (B5) 

Up(X’ t ) = u pO + £U pl + 0 ( £2 ) (B6) 

Substituting equations (B5) and (B 6 ) into equation (B4), and equating like orders in £, 

u p 0 (x,f;x o ) = X/o(x o ,r) (B7) 

t 

u pI (x,t;x 0 ) = + J n p0 {x 0 ,t) dx • V U/ , 0 (x 0 ,t) (B 8 ) 

0 

Recalling the relation of equation (B2), equation (B 8 ) becomes 

t 

U pI {xj:x 0 ) = V.j(x 0 ,t) + 1 lio(x 0 ,t) Jr - VOio(x 0 ,t) (B9) 

o 


The mean- steady observed velocities of equations (B7) and (B9) can be rewritten in terms of the 
mean- steady velocity produced by the Reynolds stresses. The applicable relations are Vo = u 0 and 

'll. = U] + ^0 and they are given by equation (76). Using these relations, equations (B7) and (B9) 

Po 

become 

u / , 0 (x,r;x 0 ) = u 0 (x 0 ,/) (BIO) 



(Bll) 


Equations (BIO) and (Bll) are now time-averaged over a cycle to arrive at the particle velocity, 


v( x;x o) = f u ^ r=0 


(B12) 


and 

v( x;x o) 


/ > 



h, + p ' u »' 

+ 

[ up dr- Vu 0 

Po V 

x 0 

lo J 


(B13) 


where the overbars represent time -averaged quantities. The quantity u pI is the mean -steady particle 

velocity. It is composed of the observed mean- steady field velocity Ti/ = Uy + ^ ~ and the 

quadratic product of the mean- steady velocity produced by the Reynolds stresses as the particle 
transverses across the O(e) streamlines defined by Ti/ . 
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APPENDIX C 

ANELASTIC APPROXIMATION 


The definition of anelastic flow is somewhat vague and unsettled, possibly because it is so 
seldom used. In general though, it can be thought of as the “filtering of sound” from the fluid 
equations (ref. 2); its effect is “to remove acoustic phenomena from theoretical considerations” 

(ref. 1). Mathematically, it is an approximation of the fluid equations where pressure gradients are 
ignored in the mass conservation equation, but are retained in the momentum equation. This allows 
decoupling of the pressure gradient between the two equations and results in density variations 
owing to bulk pressure changes in time only, ignoring density variations caused by pressure changes 
in space. 


To further illuminate the meaning of anelastic flow, consider once again the problem in 
which an ideal gas is enclosed in a cylindrical tube. Now take the scaled equation of motion in 
which there are no body forces given by the conservative form of equation (10): 

(pu), + eV(puu) = -jVp-^V-T (Cl) 


where 


A = 


yM 2 

£ 


. Consider 1 a series expansion for small values of £, 


U — Uq + £ U] + 0^£ 2 j 

V= v 0 + ev/ + o(e 2 J 


p = PO + Epi+O^E'^J 

p = Po + e Pi + o ( £ ~ ) 
T=T 0 + £T, + o(e : 2 ) 


(C2) 


Substitute equations (C2) into the equation of motion and collect leading-order terms. For a typical 
pulse tube, the leading-order pressure term is Vp 0 = 0(A) = o(l0 -7 ), a very small number, hence 


Vpo ~ o 


(C3) 


Although the leading-order pressure is not spatially dependent, it can still be temporally dependent, 
Po = Po( { )- Now, take the scaled mass conservation equation of equation (9) 

0 = -^ + £Vu (C4) 

p Dt 


1 Equation (Cl) can be rearranged into a more familiar form by multiplying through by Va, 

fVa 

Va(pu) + eVa V (puu) = Vp - V • t where the quantity £Va is the dynamic Reynolds number, Re, 

J yM" 

7* ^ k f* 1“ 

multiplied by the length ratio — , so £Va = — - — = — - — = Re — . This arrangement gives the momentum 

C L'co' v' v' L L' 

equation in the form Va(pu) + Re — V (puu) = — — V • T . 

■' C yM" L 
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where — = ^ ; + ai- V/. The equation of state for a single-phase, single-component system allows 

the density to be written in terms of pressure and temperature, 

L2£. ss - P £L +k £p (C5) 

p Dt Dt Dt 

where (5 = -(1 /p)(dp/dT) p is the thermal expansion coefficient and K = p(dp/ dp) T is the bulk 

modulus. The equation of state is substituted into the mass conservation relation, equation (C4), 
giving 

eV u = -/3(r, + eu • VT) + k( P{ + eu • Vp) (C6) 

Substituting the series expansion into equation (C6) and expanding to 0(1) with /3 and k constant 
gives 

0 = -pT 0t + Kp 0j (Cl) 

which states that leading-order temperature and pressure are not, in general, time-dependent. This 
implies that the density is not time-dependent, but it can still be spatially dependent. Equating 0(e) 
terms of equation (C6) gives 

V ■ u 0 = -P(T it + u 0 • VT 0 ) + k(pu + • 'Cpo) 

or, since Vp 0 ~ 0 from equation (C3), 

V ■ u 0 * -P(T U + U o • vr 0 ) + Kpj t (C9) 

Equation (C9) shows how the problem becomes anelastic in the limit for Vp 0 «< 1 where 
pressure gradients do not significantly contribute to the divergence of the velocity. The divergence 
of the velocity is primarily a result of bulk-pressure and bulk-temperature changes, and advection 
through temperature gradients. However, po may still have significant temperature dependence, 
which will be reflected in the energy equation. 
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APPENDIX D 

TWO-DIMENSIONAL ANELASTIC EXPANSION AND ORDERING 


Expansion Series 


Consider the conservation equations for mass, momentum, and energy conservation, and the 
equation of state for an ideal gas: 


where 


0 = p t + eV • (pu) 

X 

A(pu) t + eXV • (puu) = -Vp - — V • T 

•v i , v i fyf^ 

{pT) t + £V • (pur) = l—( p>t + a i • Vp) - V - q + ( 7 + l)—x: Vu 

p = pT 

X « £ « 1 


(Dl) 

(D2) 

(D3) 

(D4) 

(D5) 


Also take Va = 0(1), Pr = 0(1). Assume an expansion of the variables for pressure, temperature, 
density, and velocity in terms of the unknown functions f(e,X), g(e,X), h{e,X), and j(e, X), 

p = Po + /y(e, A)p; + / 2 <e,A)p 2 — (D6a) 

T = Tq + gj(e,X)Tj + g2(e,X)T2 -\ — (D6b) 

p = Pq + hj(£, X)pj + h 2 (s, X)p 2 h — (D6c) 

u = u o + j](e,X)uj + j 2 (e,X)u 2 4 — (D6d) 

The task is to determine/, g, h, and j so that a consistent set of equations is obtained that will 
describe the oscillating flow problem. Substitute equations (D6a)-(D6d) into equations (Dl), 

(D2), and (D3) and order. At 0(1), mass conservation becomes 

Poj = 0 (D7) 

and momentum becomes 

Vpo = °{ e2 ) 

or 

Vp 0 = 0 (D8) 

which implies p 0 1 = 0 from equation (D7) and the use of the equation of state, (D4). From the 
energy equation, (D3), we have 


7b, =0 


(D9) 



The leading-order equation of state is thus Pq — Pq(z)Tq(z)- 

At next order, take the energy equation, (D3), and order, 

8lPo T I,t + h l T oPl,t + eV ' ( Po u o T o ) 

2 

= + ai 0 -Vp 0 )--^-^V-fcVr / +(y-i-l)^T 0 :Vu 0 ( D1 °) 

Note that Vp 0 = 0 from equation (D8). Equation (DIO) is an order e relation by virtue of the 
advection term. Viscous dissipation is negligible at 0(e), M 2 « £. For equation (DIO) to balance, 
gj — hi —fi — £ (except for the condition that 0 = V • ( Po^o^o ) = ^ ' (po 11 ^) = Po ^ ' u 0 which, in this 
case, requires that the flow be incompressible, which does not apply to pulse tubes). Equation (DIO) 
becomes 

Po T U + T 0 P It + V ‘ {Po u O T o) = ~~ Pl,t ~ pr Va V 

which represents a balance between oscillating bulk temperature, pressure, bulk advection, and 
conduction. The next-order mass conservation is 

Pit + V '(Po u o) = 0 (D12) 

which is consistent with 0(e). The next-order momentum equation is 

£Vp,=0(£ 2 ) 


or 


Vp, =0 


(D13) 


which implies that p x = p x (t). This is consistent with the ordering for energy given in 
equation (Dll). Equations (Dll) and (D12) are the leading-order oscillating equations for energy 
and mass conservation, but we still require the leading-order relation for momentum. 


Proceeding, at next order, the energy equation (D3) is 


g 2 Po T 2,t + h 2 T 0Pl,t + £ 2 TlPl,t + eV • i m 0P\ + JPlPo) 

- 7 ~ l -f2P2,t + ^£(a. 0 • Vpi + * v Po) V ■ kVT 2 +(r+l)^-^ :Vu 


(D14) 


7 


7 


Note that Vp 0 = 0 and Vp x = 0 from equations (D8) and (D13), respectively. Equation (D14) is an 
0(e 2 ) relation by virtue of the advection and acceleration terms. As long as M 2 « £~ , viscous 
dissipation is negligible. For equation (A 14) to balance, g 2 - h 2 =/? = £, and j 2 - £■ Equation (D14) 
becomes after time -averaging 


V ■ (u 0 p x + Uypo) = ‘ AV7 2 


(D15) 
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which is a conversion of work to heat conduction. The next-order mass conservation is 

P2,t + J ^ {Po u i + Pi u o) = ® (D16) 

which is consistent with 0(e 2 ). The next-order momentum equation is 

(D17) 

which from equation (D5) requires that A = 0 (£ 2 ) if equation (D17) is to balance. Equation (D17) 
becomes 

{Po u o)j =-VP2--^ -^0 (° 18 ) 

which implies that p 2 = p 2 {x,t). Hence, momentum is driven by pressure gradients of 0(A), 
whereas the lower-order pressure po represents the mean pressure and pi(t) represents the bulk 
oscillating pressure. This separation of pressure into time and space functions is the anelastic 
approach. Equations (Dll), (D12), and (D18) are the oscillating equations for energy, mass, and 
momentum conservation, respectively. 

Carrying out the expansion to the next order shows that the next terms are simply of 0(£ 3 ). 
The expansion is thus 


P = P0 + epj(t) + e 2 p 2 (\,t) + £ 3 p 3 (x,r) + • • • 

(D19a) 

T= T 0 {x) + £T,(x,t) + £ 2 T 2 (x,t) + £ 3 T 3 {x,t) + --- 

(D 1 9b) 

p = P 0 (x) + £p ; (x,r) + £ 2 p 2 (x,t) + £ 3 p 3 (x,r) + • ■ • 

(D19c) 

u = u 0 (x,r) + £u /(x,r) + £ u 2 (x,r) + £ u 3 (x,r) + • - • 

(D19d) 


Equations (D19a)-(D19d) are series expansion in e. This would seem to be physically correct, 
because £ is a displacement length of the gas at the tube ends. One would reasonably expect that an 
oscillating displacement at the tube ends of order £ would result in oscillating-pressure, temperature, 
and density changes of order £. However, the pressure gradient that drives the oscillating velocity 
can be much less than the speed of sound and much less than the resonance frequency of the system; 
hence, the pressure gradient is of higher order and an anelastic approximation is applicable. 

Equations (D19) apply for the specific case of A = 0(£ 2 ). In general, however, A can be of 
higher order, that is, A = 0(£ 3 ), A = 0(£ 4 ), A = 0(£ 5 ), etc. To represent these more general cases, 
the pressure is written as 

p = po + epj{t) + Xp 2 M + £^3( X T) + ' ' ' ( D2 °) 

where A « £ « 1 . 
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Zeroth -Order Equations 


From mass conservation, the leading-order density is not a function of time: 

p0j = 0 (D21) 

From the zeroth -order momentum equation, pressure is not a function of space: 

Po,z ~ 0 (D22) 

Integrating the energy equation over the total system volume and using the divergence theorem, the 
leading-order pressure is found not to be a function of time since the temperature boundary 
conditions are steady and there is no accumulation of energy within the system: 




y?r Va 


(D23) 


The above condition, p 0 t = 0, combined with the previous condition, p 0 z = 0, requires that 
po - constant. The energy equation becomes 

1 ( rT 0,r\ r 


0 = 


Pr Va 


This is coupled to the zeroth -order energy equation for the tube wall 

0 = Fo 0Qyy 

through the appropriate ordering Fo = o( j. This ordering condition requires that 

V Pr Vhi / 


(D24) 


(D25) 


• = o\ 


\ a 8 J 


« 


1 , allowing the tube wall to be approximated as a thin flat plate with the use of 


rectangular coordinates in equation (D25). 

The boundary conditions for equations (D24) and (D25) are at r - 0, To, r - 0; at y — 1 , 

Qq — 0; and at the interface between the gas and the tube wall, the temperature and heat fluxes are 
continuous. These conditions require that To be independent of r. Finally, pressure, temperature, and 
density are related through the equation of state, 

PO ~ PoU) T o( z ) - constant (D26) 


First-Order Equations 


The next-order momentum equation is 


° = jru 


(D27) 


which implies that p\ z ~ 0 and hence, 
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(D28) 


Pi = P/(0 

The next-order mass conservation and equation of state are 

Pi,t+V-{po u o) = ° 

Pi = Po T i + Pl T 0 


The first- order energy equation for the gas is 

Pi 


y, _ , ,1 

— +V(p 0 uo) = -p-^— 


,r 


This is coupled to the first-order energy equation for the tube wall, 

Ql,t = FO Oj yy 


(D29) 

(D30) 


(D31) 


(D32) 


The next-order momentum equation is 


{Po u o)j ~ ~P2,z + Va 


1 K,r), r 


(D33) 


An additional relation is needed to find pi(t). This relation is obtained from the volume integral of 
the energy equation 

f ^ 


Pl = 


Y_ 

y 


\nT Ir dS-\npou Q dS 


Pr Va 


V 


(D34) 


which states that the periodic nature of pj(t) results from the forced oscillations from the tube ends 
and periodic radial heat conduction at the tube walls. 
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APPENDIX E 

REDUCING THE FIRST-ORDER EQUATIONS 
USING COMPLEX EMBEDDING 


Take the non conservative form of the energy equation in terms of enthalpy 

1 ( r7 V) r y — 1 

0 - TTTj “ ~ P0 T It + Put ~Po u O • ^a T 0 

PrVa r 7 

d d 

Expand u 0 ■ V a r 0 where u 0 • V a = Vq — + uq — and To r - 0 

or dz 

1 ( rT lr) r y-1 

0 - 77~r; Po T i,t + — ~ p ht ~ Po u o T b 

PrVa r 7 

Equation (a) in table 4 gives the explicit r- dependence of ug{r,z,t ) as 

u 0 {r,Z,t) = uo{r,z)e lt = /^^[i - £ 0 (r,z;VVa)]<?" 


(El) 


(E2) 

(E3) 

, where x 


Here complex embedding is used to separate out the time dependence, x = 

represents the real part of the complex function x(x)e lt . In general, j(x)is spatially dependent and 
is itself complex. Substituting equation (E3) into (E2) and eliminating the time-dependence results 
in 


0 = 


i I'M, 

Pr Va r 


~ ip0?l + i ^—^Pl -iT'oP^- Co(r,z;VVa)] 


(E4) 


This can be solved in terms of r using the boundary conditions at r — 0, f ir =0, and at r — 1 , 

fj = T w e l ^ T , where f w is the temperature amplitude and <pj is the temperature phase angle at the 
interface between the gas and the tube wall. Using the equation of state, 1 = Po{z)Tq{z), 
equation (E4) becomes 


T,= 


y-1 


Pl T oV ~ Co(^2;VPrVa)]+f vv e' 0r Co( r -z^ PrVa ) 


- r«|[l - &(r,cVPfvI)] - - fo('.cVPrVl)]] 

The quantities f w and 0j are determined by solving the equation for the tube wall, 


(E5) 


6] = Fo 6] ... 


»■ 


(E6) 


whose solution is 
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dj = T w e 


i<l>T 


,ixy- e ‘x\ /sin *Z 

V cos X , 


(E7) 


-i 


where j = J—- 
f Fo 

We now know Tj in terms of the unknown pressure P 2 (z), the unknown oscillating bulk 
pressure amplitude pj, the zeroth-order temperature To, the interface temperature amplitude T w , 
and the temperature phase angle, Oj. Now substitute T j into the first-order equation of state (eq. (h) 
in table 3 ) and use the zeroth-order equation of state to obtain p t in terms of p> 2 (z). 


- _ Pi PoT, 

Pi ~f T~ 
lo 1 0 


(E 8 ) 




* 0 *0 




(E9) 


From the first- order mass conservation equation 

(poV) 


= -(P<A>) 7 + iP I 


(E10) 


substitute for p j and uq 
{P o ^o r \ r 


= -i[p5[l-fo(r.r.Vvi)] 

+ (In T 0 ) p' 2 ^\ - f„(r,j;VPf\^)]-(^][fo('-.cVvq- fo(r, z ;VKvi)]J (Ell) 

+ h-lZlhU - fo ( r , z ;,/lwI)] 

To 7 V "To ) 

Integrating equation (Ell), and using the boundary condition v = 0 at r - 0, results in the unknown 
constant being zero and a relation for Vq in terms of r , 
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v 0 = i w / (r,z;VVa)7’ 0 p2 


+ |m y (r,z; VPrVa) - j[m 5 (r,z;VVa) - m 5 (r,z;VPrVa)]| T 0 (\nT 0 ) p 2 


T 1 

+ m 2 (r,z; VPrVa)/?; + m 3 ^r,z]^PrVa^-^-e l<l>T 


mj(r,z\c r) = - -^-/n 5 (r,z;cr)J 
m 2 (r,z;VPrVa) = - — + — — -mj(r,z;VPrVa) 

.2/ y 


m 3 (r,z;<y) = ' ; ■ (E15 

<W“ f Po( z ) 

The no-penetration condition t>o= 0 at r = 1 is used to obtain a second-order ordinary differential 
equation for p 2 (z) in terms of the unknown bulk pressure amplitude pj, 

n „„ \ mj( l,z;) Pr [ m j(l’Z;VVa) m 5 (U;v/PrVa)l \ ' 

0= n 2 -M -— — ==• 7 p=f 1 t 7=^ r( ln7 0) P2 

m y (l,z;VVa) Pr-1 m y (l,z;VVa) m y (l,z;VVa) 

1 (E16 

m 2 (l,z;VPrVa) p y + m 5 (l,z;VPrVa) f w 
+ m ; (l,z;VVa) r 0 + m/(l,z;VVa) T 0 2 * 

This is the pressure equation to be solved for p 2 (z) with unknowns T 0 (z), and pj. 
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APPENDIX F 

SOLUTION FOR THE THERMALLY STRONG CASE, WT 0 = 0 


Leading-Order Results 


Oscillating First-Order Solutions 

For VT 0 = 0, we have p 0 = T 0 = p 0 = 1 and so the pressure equation given by equation (e) 
in table 4 reduces to 


0 = p'i + 


m 2 ( l;VPrVa) A m 5 (l;VPrVa) /0r 

m,( 1;VW) m/(l;VVa) 


The general solution is 


i<(r 

m/(l;VVa) P ‘ m,{ fcVvI) ^ 


+ Cjz + C2 


This is substituted into the axial velocity relation given by equation (a) in table 4 to find wo 


“0 = “ M 


Ci + 


m 2 (WPrVa) ^ > m 5 (l;VPrVa) _ ^ 
m,(l;VVa) 




\ -£ 0 (r;Vvq 


(FI) 


(F2) 


(F3) 


The boundary conditions on axial velocity 

at r = 0 , z = 0, uq = 1 

at r = 0 , z = 1 , u,q = 0 ie il = IJ 1 e‘^ u+t ^ 
are used to determine the unknown constants C\ and pj, 

C| =- l -?£)((); Vva) 


- i m 4 1; ^) W iM PrVa ) f JQr 

Pl 1 l-^ 0 (0;VVa)m 2 (l;VPrVa) m 2 (l;VPrV^) ^ 


Substitution and simplification gives a simple relation for wo. 


w 0 



1 -Co(r,yv^) ' 

' i-Co(o;Vv^) / 


(F4) 

(F5) 

(F6) 

(F7) 

(F8) 


which is linear in z as would be expected in the anelastic limit. After substituting for pj in the 
temperature equation given by equation (b) in table 4, and recalling T' 0 = 0 , the temperature 
becomes 
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Y — l mj( 1;>/Va) [l-Co^ VPrVa) !/, r , ifr, 

T l - ~ l 7. ... 77. /^7T\1 1 r.(n..l\ T^\ ft L 


7 m 2 (l;VPrVa)[ 1 -C 0 ( 0 ;V\^) 


fo(r .^) . Zzi^Ng) [, _ f 0 (n^)]J 7^ 


and for the radial velocity given by equation (d) in table 4, 

m/(WVa) [ m 2 (r; VPrVa) m 7 (r; VVa)l/ - 

U< ’ = l-fo( 0 ;Vvi)| m2 (l;VKvi) m,(l;VvI)(( * 


m 2 (r;VPrVa) m 5 (r; VPrVa 

-im 3 (l;VPrVa) | m ^ 1; ^ PrVa j " m3 (i ; VPrVa 


f* p l< PT 

A W C 


(F10) 


Nu Independence on f w and t/^ 

Here we show that Nu is independent of both f w and U Consider the definition of Nu 


Nu = 


ffwSr=l 


i 

^Ur 2 l rf, ^ r 


(FI 1) 


where q w = -T ) r , hence 


Nu = • 


t '\„r 2 i rtldr 


From equation (c) in table 5, T j is of the form 

T 1 =f I + f 2 T w 


where 


(FI 2) 


(F13) 


= fj ( r ) = - A + A ^ 0 (r; V PrV a ) and / 2 = / 2 (f) = _fi + ( 1 + fi Ko( r ^ PrVa ) ( F14 ) 


y_l m 7 (l;VVa) 1 -U L e l< ^ v 
A = ' 7 m 2 (l;VPrVa) 1 - <T 0 (0;Vv^) 

From equation (FI 3), the derivative and integral are 


and B = 


y - 1 wz^hv/PrVa) 

7 m 2 (l;VPrVa) 
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1 

? i,r|„,=/; + /2 ? «' “d 2\rt,dr = f) + f 2 f„ 


(FI 6) 


where the superscript ‘°’ indicates the definite integral from r - 0 to r - 1. Equation (FI 2) becomes 


Nu = 




W 


-frJiE* 


Nu f = 

** w 


K-fi-fiK ( l -fi) T w-fi 

Taking the derivative of equation (FI 7) with respect to f w , we obtain 

(t - /; - r 2 t )(-/i) + (/; + ftf h.)(i - fi) 

(tv-fi-fitf 

and after simplifying this becomes 

m+fib-j i) 

Nu f = 1 j 

" {K-n-fVw) 

Taking equation (FI 4), we obtain for f) and f) 

and f)=-A + 2A 


(FI 7) 


(FIB) 


(FI 9) 


(F20) 


and for f 2 and f\ 

f' 2 (r) = -(l + Bh^^(n^PN^) and f 2 =-B + 2(l + (F21) 

Substituting equations (F20) and (F21) into equation (FI 6) and then evaluating the numerator of 
equation (FI 2) results in 

Nu f =0 (F22) 

showing that Nu is independent of T w . Similarly, it can be shown that Nu is independent of U L . 
Take // to be of the form 

f,=g,(l-V L ) (F23) 

where 


, . . u y — 1 m;(l;VVa) 1 

* ( = a (-l + &(r ; VP?VS)) and a = i— p r ^j j . f() ( 0 . VW) 


(F24) 


Substitute equation (F24) into (F23) and substitute the result into equation (FI 7) 
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Nu = — 


-4*-^) -/A 


Now differentiate equation (F25) to give 

(T w ~ g){l~U l)~ +[g'l{ l -U l) + 

(j ~ / * i I \ - \2 


and simplify the result as 

’ Ul ( f ^- 41 - yi)-^) 2 

For Nu to be independent of f w , the numerator must be equal to zero, 

Q = 8'](l- f°2) + f' 28 °l 

Substituting for f 2 and f 2 of equations (F21), equation (F28) becomes 

g\ -B + 2(1 + B ) — ( 1 ^^ Va ) - 1 = -(1 + B) VPrVa £ ; (r;VPrVa)g} 
V PrV a 


or after rearranging 


( ^/(uVPrVa) 

*h i+b > ^ W 1 - 1 


= -(1 + 5)VPrVa C/(/-;VPrVa)g} 


Now from equations (F24) 


g] = -aVPrVa^/(r;VPrVa) and g°y=-a + 
Substituting equations (F31) into equation (F30) gives 

-aVPrWC/(r;VPrV^)(l + B) 


aC 7 (r;VPA^) 


/PrV a 


= -(1 + 5)V PrVa C/(r;V PrVa) -a + 


q^r; VPrVa) 


(F25) 


which reduces to an identity. 
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Mean -Steady Solutions 


Eulerian Mean-Steady Velocity Vector, 'll j 

The mean- steady velocity components produced by the Reynolds stresses are determined by 
equations (46) and (47). Recalling that po = 1, they are respectively, 



0 = \(uj + pjUg'jrdr 
0 


(F33) 

(F34) 


The associated boundary conditions are u l r = 0 at r — 0 (symmetry) and u } = 0 at r = 1 (no slip). 
Equations (F33) and (F34) and boundary conditions are used to solve for Uj and P 3 jZ - The mean- 


steady quadratic components are determined by recalling that for %\ = and Xi = ^ 

2 1 - ~ cc 

Xi = -ZiZi 


x\Z2 = ^[Mf] = ^[^2if c ] 


Xl* 
(F35) 

(F36) 


where the superscript ‘cc’ represents the complex conjugate. Carrying out the integrations of 
equations (F33) and (F34) gives uj and p 3 z in table 8. with the axial Eulerian mean-steady 

velocity given by U } , 


Uj = Uj + p ]Uq 

Equation (48) gives the relation for the mean -steady mass flux 

(vjr + pjVor) 

•>' i ,, 


0 = 


(uj+PjUq) 


r ■ -,z 

The observed radial Eulerian mean-steady velocity is given by Vy, 


V] = V] +PjV 0 

Using equations (F37) and (F39), equation (F38) can be rewritten as 


(F37) 


(F38) 


(F39) 


„ ( v ' r b - 

0 = h Uj 


,z 


(F40) 


A single quadrature of equation (F40) and using the boundary condition Vy = 0 at r - 0 gives 

1 r - 


Vj( r ,z) = --jrU] dr 


(F41) 
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Table 8. Mean-steady solutions for uj(r,z). 


^ = Q 2 (r,z) + J2(',z) + (r 2 -i)K(z) 


(a) 

p 3z = \6^q 3 (l,z)-^q 2 (lz) + g 3 (lz)- 

^g 2 {lz) + k 3 ^ 

(b) 

where 





(c) 

G 2 (r,z) = g 2 {r,z)~ g 2 (lz) 


(d) 

K(z) = 4 [fcj(z) + q 3 (z) + gj(z)] - 2[q 2 {l,z) + ^(bz)] 

(e) 

and 



q2( r ’Z)-\-\ J i d1 i dr 

r Kz 

1 

£j(z)= j<l2( r ’Z) rdr 
0 

(f, g) 

82 (r*z) = J 2 dr 

1 

83^) = \j2( r ^)rdr 
0 

(h, i) 

Va 0 L 2 J 

i 


0) 


We also note that equation (F40) defines the mean- steady stream function, 

and +-^ = V, (F42) 

r r 

Lagrangian Mean -Steady Particle Velocity Vector, u p 

As previously discussed, the mean -steady particle velocity is used in describing the mean- 
steady particle path. The mean- steady particle velocities were presented in equations (79) and (80), 
and are reiterated here, 
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u p {r,z) = Uj+ u 0 r j ! o v 0 dT + u 0 z j‘ o u 0 dt 


and 


v p (r,z) = V] + VojII V ° dT+ v O,zf 0 u O dT 

To compute, first recall that % = 9? %e lt J = ^X e ‘ l + X CCe ~“)’ thus 

X,r) = \{xrf lt +X%e~ U ) and J*dT = +X CC e~“) 


so that 


x,. n ]x2 ft - jf-Mrf 2 " + in f,V 2 " +*f i..„ ~ iiffii) 

hence. 


x \,T 1 ]x2 d *=^(x2 c hri-M c iT 1 ) 

Using equation (F47), the particle velocities given by equations (F43) and (F44) become 
u p (z,r) = Uj + ^(t >o C «o,r “ + «0 C «0, Z ~ “0“Chz) 

and 

v p {z,r) = Vj+^vffvo , - Vovfir) 

since Vq z = Vq c z = 0 . 


(F43) 

(F44) 

(F45) 

(F46) 

(F47) 

(F48) 

(F49) 


Mean-Steady Temperature, 7^ 

The mean- steady Tj temperature is defined by the energy equation given by equation (m) in 


table 3, 


Pr V a ” 7^ = ( M/ + H + ~S Vir + P,V ° r \r 


r 2 - 


For computational purposes it is found from 

i {'h'l , 


PrVa 


- + 


% 


P1U C 0 C j ^ + -[v t r + ^ P^or}) r ~ 


r 2 = 


PrVa 


'■0,zz 


(F50) 


(F51) 
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Integrating twice and applying the boundary conditions at r — 0, T 2r ~ ® ^nd at r 1 > T 2 ® 
leads to 



y- „ / 2\ 

T 2 (r,z ) = PrVa[w/(r,z)- w 7 (l,z) + w 2 (r,z)~ w 2 (l,z)] ~^0,zz\} ~ r ) 

(F52) 

or since 

VT 0 = 0 for the thermally strong problem. 



T 2 (r,z) = PrVa[w 7 (r,z) - w 7 (l,z) + w 2 (r,z) - w 2 (l,z)] 

(F53) 

where 

w;(r,z) = |-j <j[ui +3i^p/Uo C ^j dcrdr 

(F54) 

and 

w 2 (r,z) = J(u 7 + ^[p/t)o c ])rfr 

(F55) 
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APPENDIX G 

COMPUTATIONAL PROGRAM 


The symbolic application used to compute the solutions was Wolfram Research 
Mathematica v. 2.2.2. for the Macintosh. The following program code directly translates from 
the text. 

The user must specify the variables in the cell titled ‘Input system parameters and number of 
terms in Bessel function for 10-digit accuracy in ber and bei’. The units are noted. Each variable is 
commented for clarity. The variable ‘TERM’ is specified to provide the accuracy required of the 
Bessel function that is computed with a series expansion. The number of terms depends on the value 
for Va, and a commented field suggests the number of terms for various Va. 

Immediately after running the program, a shaded cell block prints all relevant parameters, 
including dimensional specifications and non dimensional numbers. The program continues 
computing leading-order oscillating solutions: 


TW 

= amplitude of gas/tube wall interface temperature 

PHIT 

= phase angle of gas/tube wall interface temperature 

uORe 

= oscillating axial velocity 

vORe 

= oscillating radial velocity 

plRe 

= oscillating pressure 

TIRe 

= oscillating temperature 

rholRe 

= oscillating density 

qi 

= oscillating heat flux 

NuC 

= complex Nusselt number 

and mean -steady quantities: 

uOTIReAvg 

= axial enthalpy flux 

uOplReAvg 

= axial work flux 

rhoSuSAvg 

= axial Eulerian velocity 

rhoSvSAvg 

= radial Eulerian velocity 

upAvg 

= axial particle velocity 

vpAvg 

= radial particle velocity 

T2 

= temperature 


These quantities are plotted in phasor diagrams and field plots. 
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;;(• FileName and prereq *) 


«Calculus' Vector Analysis' 

«Graphics 'Graphics' 

Needs [* Graphics ' PlotField' *1 ; 

Share [ ] ; 

(* conversion factors and constants *} 

convertlnToCm* <2. 54 cm) /in; 

convert lnToCmSgrt=Sqrt [ 2 . 54*2 00*2] /in; 

convercCgsToDyne=dyne/ i g cm /sec "2 > ; 

conver t A tatoMPa« 0 . 1 0 1 3 3 MPa / a cm 

J=W sec; 

meter* (100cm) ; 

Gascons tantStar*8 . 3143 J/(mol K) (*82.05cm*3 atm/ (mol*K*MW>«) ; 


(* Bounds on vector fields *) 

j AxialRMSBoundX so : = ( jAxialRMSFlow[ 0, 0, 0) , jAxialRMSFlow[l, 0. 0] ) 
j AxialRMSBoundHXf r : = ( jAxialRMSFlow[0, 0 , TW] , jAxialRMSFlow ( 1 , 0 . TW] } 
rhoSuS Bound! so : = 

{ (rhoSuS [0, 0,0 J .rhoSuS [ .67,0, 01 . rhoSuS [ .89, 0, 0] }, lrhoSuS[0, 1, 0] . rhoSuS [. 67, 1,01 , rhoSuSI . 89 , 1 , 0 ] } 1 ; 
hAxialFluxBoundlso : = 

{ (hAxialFluxlO, 0 ,0,0) .hAxialFlux [.67,0,0,0], hAxialFlux[ .89,0,0, 01), 
thAxialFlux [0 , 1 , 0 , 0 j , hAxialFlux [ . 67 , l , 0 , 0) . hAxialFlux [ . 89 , 1 , 0 , 0 ] ) ) ; 

KAxialFluxBoundKXf r : * 

{ (hAxialFlux{0 , 0, TW, 0 ] , hAxialFluxt . 67 , 0,TW, 0} , hAxialFluxt . 09, 0.TW, 0 ] } , 

{hAxialFluxlO , 1 , TW, 0 1 , hAxialFlux ( . 67 , 1 , TW, 0 ] . hAxialFlux [ . 09 , 1 , TW, 0 ] } ) ; 

<* Predefined significant digits *) 
daceLock*Dace[ ] 

date :*Prepend[ Drop [Drop [dateLock, 1 ] , -2 1 , StringJoin[kindSystem,N(Va, 31 1 ] ; 

epsilon: *N[eps, 31 

valensi:=N[Va. 4J 

prandl t : =N ! Pr, 3 ] 

fourier: =N[Fo, 51 

vpf:*valensi * prandlt * fourier 
strouhal :*N(l/eps, 4] 

XsoPR: =N IXsoPressRatio, 4 ) 

Adi PR : =N l Adi Vol PR . 4) 

PHIUPrint:«N[PHIU, 3) 

PHITPrint : =N [ PHIT , 4 1 

{1997, 3, 15, 19, 24, 57| 

{ * MASTS* Linear a secondary * ) 

(* Master L i n ear *} 
f I/O AMD F?»CTX<y8 * J 
(- PARAMETERS *) 

Input Parameters in English or cgs units 

{* Input: cqs * ) 


(* Input cgs Parameters *) 


(* OPT *> 

(* rr.ru system parameters and number of terms in Bessel function for 10 digit accuracy in ber and bei 
type* * * ; (* CC or Thesis * ) 

type2*"dT/dx*0*; (* dT/dz<>0 *) 

freaStar* 3/<sec); <* a freq baseline of 1Hz corresponds to Va=50. *> 

rwStar* .81649 cm; (• baseline* . 0444 2cm ; 2 *,00254 { *Sqrt ( . lPower [ . 053 , 2 ) ) * ) cm* ) 

{* Va adjustment; 053cm corresponds to VaPr*l ;. 04442cm to Va=l 
LStar* 10 cm; (• baseline=10cm; eps adjustment *> 

pi StonDynAmpStar [0,01= .02 cm; {• baseOPT=l . 0cm. BPT=1 . 4142cm; M adj;*) 

pistonDynAmpStar[0,LStarl= 1. 0* pi stonDynAmpStar [0,01 ; <• as a percentage of pistonDynAmpCmtO, 0] *) 


PKIS.J =-.10; 
?ERM=16; 


{* velocity phase angle of UL wrt UO; PHIU<0 means UL lags U0 *) 

(* . 1Hz is Va=5->TERH=7; . 6Hz it Va*30->TERM=11 ; 1Hz is Va=50->TERM=13 , 
2KZ is Va=100->TERM=15, 5Hz is Va=2 50->TERM=19 , 

6 Hz IS Va=300->TERM=22 *) 

(* for PV and V-l then TERM* 6 ; for PV and V~10 then TERM=18; 
for V*2=30, TERM* 10; for V*2=300, TERM=22 *) 


[* input Tube wall domain *) 
rhoOTubeStar* 7.820 g/cm*3 ; 
CpOTubeStar* 0.46 J/(g K) ; 
kTubeSter* 0.163 w/(cm K) ; 
tubeThicknessStar* .004903 cm; 


(• stainless steel •) 

{■ stainless steel •) 

{• stainless steel •) 

( # Fo adjustment; 0.026853 cm corresponds to Fo=l *) 


( * input gas domain •) 
cenrpLowGasStar=50K ; 
tempRef Gas Star* 300K; 
pressureRefStar* 9.866 atm; 
CpOGasStar* 5.2 J/ <g K) ; 
kGasStar* 0.00149 W/ {cm K) ; 

muStar* 2 . 0134*10*-4 g/ (cm sec); 

MWStar* 4. 2*10* -3 kg/mol; 

GAMMA* 5/3; 


( *pressureMeanStar=pressureRefStar* ) 

{•air at STP 300K: 1.005 J/ (g K> *) (*He: 5.2 J/{g K)«) 

{•air at STP 300K:0 . 000267 W/<cm K>*> (*He at STP; 0.00149 W/ (cm X) ; 

(note; for kGas= . 0010471552 , Pr=l . 000000000)*) 

(•air at 300K: 1 . 843*10*-4 g/ (cm sec); He : 2 . Q134*10*-4 g/ (cm s> 

9 any resonable pressure*) 

(•air at STP 300K: 32*10*-3 kg/avol; He:4.2*10*-3 kg/mol*) 

{* 7/5 for air •)<* 5/3 for He *) 


f * Output gas calculations *) 

rho Ref GasS tar* pres sureRef Star* ( 300K/ tempRef Gas Star ) * 1 . 624*10* -4 g/ (atm cm" 3 ) : 

(•air at STP 300K; 1.17Q*10*-3 g/ (atm cm*3)*> 

(*He density/atm 8 1 atm: 1.624*10*-4 g/ (atm cm A 3);*) 
nuStar=muStar /rhoRef GasStar ; (*air at STP 300K: 0.1566 cm*2/sec; He; 0.124 cm*2/sec*> 

a 0 Star* Sqr t [ GAMMA Sirnpl i f y [ 

Gascons cant Star /MWStar tmpRefGasStar J/(sec w) (kg raeter*2/sec*2J /J (sec*2/cm*2 ) ] ) cm/sec; 
(•air at STP Anderson pg.55; 

He;Sqrt [GAMMA 2.08*10*7 300)cm/s,= 101,980cm/s *) 

(• Ouput convert from Scar=cgs to English units *) 
rvl nch* rwS tar / c onvertl nToCm ; 

L Inch* LS tar / convert I nToCm ; 

tubeThicknesslnch=tubeThicknessStar/ convert InToCm; 
pistonDynAmpInch(0, 0]=pi stonDynAmpStar (0, 0] /convertlnToCm; 
pistonDynAmpInch ( 0 , LInchl =pi stonDynAmpStar [ 0 . LStar ) / convertlnToCm; 
pressureRefStarMPa=pressureRef Star convertAtmtoMPa; 


114 


I 



<" Input English Parameter? arid convert to cgs *} 

type='CC*; (* CC or Thesis *1 

type2=*dT/dz=0* ; (* dT/dz<>0 *) 

freqStar- 15 /sec; (* set *) 

rwlnch* .5*7/8 in; (* Va adjustment *) (* valueForV*Sqrt [nu/ omega Bar] /convert InToCmSqrt allows 

specified value for V *> 

Llnchs 5 in; {* eps adj *> {* 15’+5/8* is the undisplaced tube length *) 
pistonDynAarpInch [0.0]= 1 in <*LInch/ <2Pi) *> ; (* M adj *) (*apiston dynamic amplitude; 

(1.09) /2 in is 13cc conpressor pistonDynAapInch; 
for spec eps, pistonDynAnpInch] 0 , 0) -eps Llnch/ (2Pi)*J 
pistonDynAapInchtO. Llnch}* 0.2 pistonDynAapinch{0, 0) ; 

PHIU *-0.25; (• velocity phase angle of UL wrt U0; PHIU<0 means UL lags U0 •) 

TERM*15; (• for PV and V-l then TERM-6; for PV and V-10 then TERM=18 •) 

(* ■■ Tube wall domain *) 

rho0TubeStar= 7.820 g/cm A 3; 

CpGTubeStar* 0.46 J/(g K); 
kTubeStar* 0.163 w/(cm K) : 
tubeThicknesslnch* 0.020 in; 

(* input gas domain *) 
terapRef Gas Stars 30 OK; 
pres sureRef Star* 10 atm; 

CpOGas Stars 5.2 J/(g K) ; 
kGasStar* 0.00149 W/ (cm K) ; 

muStar= 2. 0134*10^-4 g/(cm sec); 

MWStar* 4.2*10 A -3 kg/mol; 

GAMMA- 5/3; 

(* Output gas calculations *) 
rhoRefGasStar=pressureRe£Star* (tempRefGasStar/ (300K) ) *1 . 624*10 A -4 g/(atm cm A 3) ; 

(•air at Stp 300K: 1.170*10 A -3 g/(atm cm A 3)*) 

(*He density/atm 8 1 atm; 1.624*10 A -4 g/(atm cm A 3>;*) 
nu$tar*muStar/rhoRefGasStar; (*air at STP 300K; 0.1566 cm A 2/sec; He:0.124 cm A 2/sec*) 

aOStar*Sqrt{GAMMA Gas Constants tar/ MWS tar tempRefGasStar] cm/sec; 

(*air at STP Anderson pg. 55;He:Sqrt (GAMMA 2.08*10 A 7 300]an/s; = 101,980cm/s *) 

(* Ouput convert from English to Star units *) 
rwStar * rwlnch* convert InToCra; 

LStar =LInch ‘convert I nToCm; 

tubeThicknessStar *tubeThicknessInch*convertInToCa; 

pistonDynAmpScar 10,0] =pi stonDynAmpInch [ 0 , 0 | * convert I nToCm; 

pistonDynAapStar [ 0 , LStar ] *pi stonDynAmpInch [ 0 , Llnch] • con vert inToCm; 

Calculated used in Calculations 

i* Dime-ns Parameters Cal culjic-sd * j 

p0* 1 ; 

If (type2***dT/dz*0*,T0[z]=l.r0[z)*. ] ; 

If [type2=**dT/dz=O*,T0lOJ=l.TO(O]*. ] ; 
rhoO [*_) : = 1/T0(z] ; 


(* stainless steel *) 
(* stainless steel *) 
(* stainless steel *) 
(* Fo adjustment *) 


( * pres sureMeanStar-pressureRef Star* ) 

fair at STP 300K; 1.005 J/ (g X)*) (*He; 5.2 J/ (g K>*) 

(•air at STP 300K: 0 .000267 w/(cm K>*> (*He at STP: 0.00149 W/(cm K); 
(note: for kGas* . 0010471552 , Pr=l . 000000000) •) 

Cair at 300K:1 . 843*lC A -4 g/ (cm sec); 

He: 2.0134*10 A -4 g/(cra s) 6 any resonable pressure*) 

(•air at STP 300K: 32*10 A -3 kg/mol; He:4.2*10 A -3 kg/mol*) 

(* 7/5 for air *) <* 5/3 for He *) 


omegafiarStar 
UStar [0 , 0 3 

UStar[0, LStar) 

UStarIG, 0, t_] 
UStar[0, LStar, t_] 


= 2Pi freqStar; 

* omegaBarStar'pistonDynAmpStar [0, 0] ; (• 

= omegaBarStar*pistonDynAmpStar(0, LStar J; (• 

:* UStar [0,0 ] Cos [ t ) (* 

:= UStar [0, LStar] Cos[t * PHIU] 


(* characteristic inverse time period *) 
u0=Ampli tude of d/dt ( tpistonDynAmpCmf 0 , 0 ] 

Sin (omegaBarStar t]]*) 

U0-Amplitude of d/dt { [pistonDynAmpCmtO , 0] 

Sin (omegaBarStar t ♦ phiu] } *) 
t*onvegaBarStar tStar *) 


a lphaOTubeS tar 

alphaOGasStar 

hOscFluxOStar 

xSect Areas car 

hOscFlowOStar 

jOscFluxOStar 

jOscFlowOStar 

qGasRadialOStar 


* kTubeStar / (rhoOTubeS tar CpOTubeStar ) ; 

-kGasStar/ (rhoRefGasStar CpOGasStar) ; 
=rhoRefGasStar*CpOGasStar*UStar[C, 0] *tenpRefGasStar,- 
*Pi*rwStar A 2//N; 

= xSect Areas tar* hOscFluxOStar ; 

* rhoRefGasStar* US tar [0, 0) ; 
axSectxreaStar* jOscFluxOStar; 
a kGasStar* tempRefGasStar /rwStar; 
wallShearScressOStaramuStar UStar (0, 0] /rwStar; 
cubelnnerArea >2 Pi rwStar LStar ; 

dragOStar *wall Shear Stress OS tar tubeinnerArea convertCgsToDyne//N; 

deltaTStar =terapRefGatStar-tempLovGasStar ; 

deltaT = ( terapRefGasStar-tcmpLowGasStar) /tempRefGasStar,- 


volOfTubeStar :* Pi rvStar A 2 LStar 
(*velocityCombo[t_J :*UL*Cos (2 Pi t] /Cos (2 Pi (t+PHIU) ]•) 


peri odS tar a 1 / f reqS ta r ; 

tauStar-periodStar; (* characteristic time is the period *) 

i* Non •• dimensional Paicisiet^rs Calculated '• 

w =UStar [0, 0] /aOStar; 

Va = rwStar"' 2 omegaBarS tar /nu Star; 

Pr amuStar CpOGasStar /kGasStar ; 

Fo =alphaOTubeScar/ (omegaBarStar tubeThicknessStar A 2) ; 

aps -pisconDynAmpStar [0, C) /LStar; 

S =l/eps; 

LAMBDA *M A 2/(epS GAMMA); 

CAPGAMMA* rwStar/ (LStar* eps) ; 

UC =UStar(0, 0] /UStar [0,0] j 

UL aUStar[0, LStar) /UStar (0,0); 

kgas -kGasStar/kTubeStar ; 

K‘[T)BE *kTubeStar/ kTubeStar ; 

EL = tubeThicknessStar/ rwStar/ /N; 

ReO a jOscFluxOStar 2 rwStar /muS tar; 

i* Circular i-P: • Va, v-, ! r*r. and 1 :i'ct used in rropupl an solution? *; 

v aSqrt(Va); 

P =Sgrt (Pr ] ; 

?v=Sqrt JPr] *V; 

F =Sqrt 1 1 /Fo] ,- 


UOa. ;U1*. ; ( *FO= . * ) 

d[ 0 ] =pistonDynAapStar [ 0 , 0 ] /LStar; 
d[l ) =pis tonDynAmpS tar [ 0 , LStar] /LStar; 

volSystem[c_) ;= 1 - d[ 0 JSin[ 2 Pi t] ♦’dll] Sin[ 2 PI(t * PHIU)]; 



(- calc iso cbr-d Ad!. pressurs RjiCics and a^ign fil€?ias.-ss •: 

FindMinimum(volSystein(t) , it. . 5} 1 ; 
cimeVolHin*t/. % ( [2. 1)) ; 

If [tin»eVolMin< . 5, timeVolMax*tioeVolMin* . 5, timeVolMax=cimeVolMin-. 5 , timeVolMax=timeVolMin- . 5) ; 

IsoPressRatio* vol Sy stem [time Vo 1 Maxi /volSystem(timeVolMin! //N; 

AdiVolPR* ( volSystem t tiaeVolMax ) /volSystem t timeVolMin] ) ~GAMMA/ /N ; 

< « cal:: CL pressure '» 

plCUiat [Uo_,Ul_,phiU_] * (-1 GAMMA) MUo-Ul Exp [ I 2Pi phiU])//ComplexExpand; 
plCL[UO_,Ul_.phiU_,t.J * plCLhat I0o, UI , phiU ) *Exp{ I 2Pi c)//ComplexExpand; 
plCLRelUo_.Ul_,phiU_. t_l = plCL[Uo, Ul, phiU, t)-l Coefficient(plCL[Uo,Ul,phiU,t|,H//N; 
FindMinimum[eps*plCLAe[UO,UL,PHIU.t) . {t, . SJ] ; 
plCLAdiaAmpl=Abs t % t [ 1 3 1 3 ; 

plCLAdiaPR* ( 1+plCLAdiaAnpl ) / (1-plCLAdiaAmpl ) ; 

!“ ID Kilow bash'd on uOpl *! 

(• HfluxlDStar* (AdiVolPR-1) *p res sureRef Star/ (AdiVolPR+1 ) ;*) 

i - id Hr low bar-»d on Fays E-:;n /.-3* WIST TW 13*43 *) 

HFlowRayStar [ jOscWarmInGramPerSec_, THotlnK_, PdynlnAtrru. PmeanInAtm_] :* 

(1/2) GasConatantStar/MWStar THotlnK jOscWarmlnGramPerSec (PdynlnAtm/PmeanlnAtm) kg/ (1000 g)//N 
HFlovRayStar2 l jOscColdInGramPerSec_, TcoldlnX^, PdynlnAtm_, PmeanInAtm_, phi Radians.] : * 

(1/2) jOscColdlnGrae&PerSec GasConstantStar/MWStar TeoldlnK (PdynlnAtm/PmeanlnAtm) Cos [phiRadians] kg/ (1000 g)//N 

r* Fit.ld Graphics Ccordi no t.-is *) 

c excar ^Graphics [ (Text [ *r=0 ’,{0.5, -.14}. {0,1)3, Text [ *r=l* . 10.5,1.13), (0,-1)], 

Text! *z=0* . (-.06, 0.5), {1,0}] . Text ( *2=1' , (1 . 06, 0 . 5). {-1 . Q }] }) ; 
liner! (xl_,yl_) . (x2_,y2_)] :=Craphics[Line(({xl,yl). {x2,y2)})3; 

<:* A«;sign fiieNaTWsS 'i 

lf[d[0)*=0 || dIl)**0,kindSysteo=BPT,kindSyste»=OPT, kindSystem=OPT] ; 


I f { kindSystem*=BPT , 

£ileNameBPTIsoList={ (’type,*) *BPT’, ’eps* , *va* , ’Pr’ , *vaPr* , ’UL* , *FHiu* , *m* . ■ lambda- , * IsoPressRatio* , 
’AdiPressRatio’ , 'CLAdiPRatio* }; 

£ileNameBPTHXfrList={ fileNameBPTlsoList, ( ’Po* , { •'PHIT* , *tw* } , *vaPrFo’}. 

*( total Dr agAnpO , tocalDragRMS/tube, HOs cFlowO Star) *, "date* } ; 
flowNamesBPT:={ (*type,’> *BPT* , epsilon, valensi . prandlt ,N (valensi prandlt, 5) ,N|UL,2] . 

’n/aPHIU* ,N[M, 4] , N [ LAMBDA .31); 

PRNames:=(lsoPR, Adi PR, plCLAdiaPR) ; 

HXf erNames: ={fourier. (PHITPrint.TW), vpf}; 

dragNames:*{dragOStar (Anp) . totalDragRMSStar * Itube^-l) *.hOscFlowOStar//N); 
f ileNameBPTlso; = { f lowNamesBPT. PRNames) ; 

f ileNameBPTHXfr : »{ f ileNameBPTlso , HXf erNames , dragNames .date) ] ; 

I f { kindSystem==OPT . 

fileNa»eOPTlsoList*{ (’type, *1 ’OPT*. *eps*, *va* . *Pr*, *VaPr*,*OL*. *PHIU*. *M* , * LAMBDA* , ’IsoPressRatio* , 
■AdiPressRatio’ . ’CLAdiPRatio* } ; 

f ileNameOPTHXfrList= ( fileMameOPTIsoList, { *Fo* , { ’PHIT* . *tw* } , -VaPrFo’ ) . 

•{ total Drag AmpO, totalDragRMS/tube, HOscFlowOStar } * , ‘date* ) ; 
f lowNamesOPT: *{ (’type, *) *OPT* , epsilon, valensi, prandlt ,N (valensi prandlt, 5] , N(UL, 2 ] , PHIUPrint , N [M, 4 ! , N {LAMBDA, 3]); 
PRNames :*{lsoPR, AdiPR.plCLAdiaPR) ; 

HXf erNames : = { Courier , (PHITPrint.TW), vpf). 

dragNames : = { drag 0 Star (Amp) .totalDragRMSStar* ( tube~-l) ’ , hOscFlowOStax//N) ; 

£ileNameOPTIso: = (flovNamesOPT, PRNames) , 

f ileNameOPTHXf r : * { f i leNameOFTIso , HXf erNames , dragNames , date } ] ; 


If (kindSystem==BPT, , 

f i 1 eNameBPTI aoLi s t = ( type , *BPT*. *eps*, *v*. *P* , *pv* . *UL* , *PH2U* , *M*. 'IsoPressRatio* , ’AdiVolPR* . CLAdiPRatio ) ; 
fileNameBPTHXfrList={fil«NameBPTIsoList. { 'F* , { *PHIT* , *TW* ) ) . { *HOscFlowO* ) , date) ; 

f ileNameBPTlso: =( type, ’BPT’ .epsilon, V//N.P//N.NIPV.S] ,N(UL, 2] . *n/aPHIU*,N[K,4),lsoPR,AdiPR,plCLAdiaPR); 
f ileNameBPTHXfr :={fileNameBPTI so, (F//N, (PHITPrint.TW)}, (hOscFlowOStar/ZN) > J : 

I f 1 kindSys tern** OPT , 

f ileNameOPTlsoList= { type , *OPT* . *eps’ , *V" , ’P* . *PV* , *UL*. *PHIU* *K* . * IsoPressRatio* , * AdiVolPR* , -CLAdiPRatio*}; 
£ileNameOPTHXfrList={f ileNameOPTIsoList, ( *F* , ( *PHIT* . *TW* } }. { *H0scFlow0* ) .date) ; 

fileNameOPTlso: = (type, * OPT * , epsilon, V//N, P//N.N1PV. 5) ,n[ul, 2] , PHiUPrint,N(H, 4] , isoPR, AdiPR, plCLAdiaPR) ; 
f ileNameOPTHXfr : = ( fileNameOPTIso, {F//N, (PHITPrint.TW)) . (h0scFlow0Star//N) } ] ; 

*) 


. DIMENSIONAL VARIABLES SPECIFIED: 

((OPT, eps. Va, Pr, VaPr. UL, PHIU, M, LAMBDA, IsoPressRatio. AdiPressRatio, CLAdiPRatio), (Fo, (PHIT, TW), vaPrFo) , 

(totalDragAnpQ, totalDragRMS/tube, HOscFlowOStar). date) 

-6 -9 

(((OPT, 0.002, 100., 0.703, 70.266, 1., -0.1. 3.7B9 10 , 4.31 10 ), {1,002, 1,004, 1.00413}), (100., (PHIT, TW) , 7026.6). 

(0.00476915 Amp dyne, (cube A -l) totalDragRMSStar. 1.97349 W). (OPTolOO., 3, 15, 19)) 

” ^321453 in; L =3.93701 in; tubeThickness =0.00193031 in; pistonDynAapIncbAtO =0.00787402 in; pistonDynAmpInchACL =0.00787402 in 


* 3 2 
rv =0.81649 cm. L =10 cm; tubeThickness =0.004903 cm,- volOfTube =20.9436 cm ; CrossSectArea=2 . 0943 6 cm 


pistonDynAmpAtO =0.02 cm; pistonDynAmpAtL =0.02 cm; freq =- 


0.376991 cm 0.376991 cm 0 . cm 

pistonSpeedUO pis tons peedUL -; ApisconSpeed ; pRef =0.999722 MPa; tempRef =300 K; rhoRef = 


0.00160224 g 


0.045313 cm 7.B2 g 0.46 sec W 0.163 W 0 045313 

- ; rhoOTube = , CpOTube = kTube ; alphaTube 

sec 3 g k cm K sec 


0.942286 W 0.00060403 g 0.00126506 g 0.547465 W 

; hOscFlowO =1.97349 W; jOscFluxO ; jOscFlowO = -; qGasRadialO ; HFlowRay s 

•> 2 sec 2 


116 



0.00040268 g Pi Pi 

HFlowRayStarl , 300 K , 0.0203251 atm, 9.866 atm, --) 

sec 6 

total DragAmplO =0.00476915 dyne; totalDragRMS/tube =<tube A -l) total Drag RMS Star 

• NON-DIMENSIONAL SCALING VARIABLES CALCULATED: 

-6 

Va*100. ; Pr=0.703; Pr*Va=70.2663 ; S *500.; Fo=100.; EL-0 . 00600497; M=3. 78929 10 ; ReO =4.89902 

p0*l; TO [ i |=1 ; rhoC[z)=l 

• NON-DIMENSIONAL VARIABLES USED IN COMPLEX SOLUTION; 

-6 -9 

V»10 . ; P=0. 83825; PV*0.3825; eps-0.002; F»0.1; M-3. 78929 10 ; LAMBDA-4.30762 10 ; epS‘Va-0.2 

5 

UQ=1 . ; UL-1 . ; PKIU--0.1; TERM-16 ; XGAS =0.0091411; KTUBE=1 , ; GAMMA- - ; d0*0.002; dL=0.002 

3 

Archive 
( 


Modi is -id Bep-sel -xn expansion into s--is.fi J -and imaginary party 

ber [order., r_, z., sigma., TERM] * (r sigma Sqrt ( rhoO [z] ] /2 ) A order * 

Su»[Cos| ( 3order/4«-k/ 2) Pi)/ {Factorial (k) Gamma [ order* k* 1 ] )•(( (r sigma Sqrt [ rhoO [z] ] ) *2) /4) "k, {k. 0,T£RM) ) 
bei (order., r_, z_, sigma_, TERM} « (r sigma Sqrt [rho0(z] ] /2) “order * 

Sum ( Sin { (3order/4*k/2 > Pi ]/ (Factorial [k] Gamma [order*k*l] ) * t ( (r sigma Sqrt [rhoO (z|) ) ~2) /4) *k. {k, O.TERM} ] 

berl0,r_, z_,V. TERM] =ber[0,r,z, V, TERM] ; 
bei[0,r_, z_,V, TERM] *bei[0,r,z, v, TERM] ; 
ber [ 1 , r.. z_, V, TERM] -ber [ 1 , r , z , V, TERM] : 
bei ( 1 , r_, z_, V, TERM] -bei ( 1, r , Z, V, TERM] ; 
ber [ 0 , r_, z_, PV , TERM ] -ber [ 0 , r , z , Pv , term ] ; 
bei (0, r_, z_, PV.TERM] -bei {0,r, z,PV,TERM); 
ber (l,r_, z_, PV.TERM) -ber 1 1 , r. z.PV.TERMJ; 
bei (1, r., z_, PV, TERM] -bei 1 1 , r, z , PV.TERM) ; 

ModBesselJHold [order., r_, z_, sigma.] : -Hold [ber (order. r, z, sigma, TERM] J*I Hold [bei [order, r, z, sigma, TERM] ] ; 

(• BesaelJ [0, Sqrt [ -I ] sigma] -ber [0,1, sigma, TERM ]+i bei [0, 1, sigma, TERM] *> 

i * T s t ? i-.ii ort n Liras* y " ■ 

(* BesselJ, ber*I bei, large argument approximation •) 

Print [*V = *,V/V N, * TERM * * , TERM ] 

beaselAccuracyLista* { [V] ;BesselJ; [ber*l bei); ModBesselJHold; Argument->infinityapproximation}''; 

besselAccuracyHi*N[Abs( ({V} , BesaelJ [0, Sqrt [-I]V] ,ber(0, 1 , z , V, TERM] + 1 bei [ 0 , 1 , 2 ,V,TERM], 

ModBesselJHold! 0, l,z,V]//RelaaseHold,Sqrt[2/(Pi*Sqrt[-I] V)]Co*[ Sqrt [ -X JV-Pi/4 J > ] , 9] 
bessel Accuracy Lo-N [Abs [ ( {0 . iv> , Bessel J [0,0. lSqrt t -I ] v ] , ber ( 0 , 0 . l , z , v, TERM) *1 bei [ 0 . 0 . 1 , z , v, TERM] , 

ModBesselJHold! 0 , 0. 1, z, V] / /Rele&seHold, Sqrt [ 2/ (Pi* Sqrt [ -I ] 0 . IV) I Cos [O.ISqrt [-I]V-Pi/4]} J . 9] 


V - 10. TERM =16 

{{9.99999925), 149.847528, 149.847526, 149.847526, 148.537427) 

{{0.999999925), 1.01552483, 1.01552483, 1.01552483, 1.00386903) 

kseTemplate=ComplexExpand[ (avarKse*! bVarKse) / (cvarKse*! dVarKse)]; 
kselntTeanplate-Coef ficient ( kseTemplate, I ] ; 
kseReTenplate-kseTeaplate- 1 kseimTemplate ; 

kseReHold[order_, r_, z_, sigma.] =kseReTemplate/ . 

{ avarKse- > Ho ldForm (ber [ order, r, z, sigma, TERM] ] , 
bVarKse- >HoldForm [bei [ order, r, z, sigma. term] ] . 
cVarKse->HoldForm[ber[0,l, z, sigma, TERM] ] , 
dVarKse- >HoldForm [bei [ 0 , 1 , z , sigma , TERM ] 1 } ; 
kselmHoldl order., r_, z_, sigma.] =kseImTemplate/ . 

{ aVarKse- >Ho ldForm [ber [order, r , z , sigma. TERM) ] , 
bVarKse- >HoldForm [bei [order, r , z , sigma, TERM) ] , 
cVarKse->HoldForm[ber [ 0, 1 , z, sigma, TERM] ] , 
dVarKse- >HoldForm[ bei [0,1, z, sigma. TERM] ] ) ; 

kseHold[order_, r_, z_, sigma.] -kseReHoldl order , r , z. sigma } ♦! kselmHold [order , r , z , sigma] ; 


mlTemplate- 

ComplexExpand [ (aVarM3 * I bVarM3 ) ( c VarM3 * I dVarK3 ) ) ; 
m3ImTemplate*Coe£ficient [m3Template, I] ; 
m3ReTemplat«=m3 Template- I m3ImTemplate, 

mReHold [3, r., z_, sigma.] =m3ReTemplate/ . 

{aVarM3->HoldPorm{ -1/ {sigma Sqrt [2 rhoO [z]]) I, 
bVarM3->HoldForm[ -1/ (sigma Sqrt (2 rho0[z)))j, 
cVarM3->kseReHold(l,r, z, sigma] , 
dVarM3-»kselmHold[l , r, z . sigma] ) ; 
mlmHoldU, r_, z_, sigma.] -m3 ImTemplate/ . 

[aVarM3->HoldForm[ -1/ (sigma Sqrt[2 rho0[z]])I, 
bVarM3->HoldForm[-l/ {sigma Sqrt [2 rhoOlzjj)], 
cVarM3->kseReHold[l, r, z, sigma] , 
dVarM3->kseImHold[l , r. z , sigma] } ; 

mReHoldil, r_,z., sigma.] =- (1/pO) (r/2 - mReHold! 3 , r , z, sigma] > ; 

mlmHold [ 1 , r_, z_, sigma.] --< 1/pO) ( - ctilmHoldE3,r,z,sigma]); 

mReHold(2, r_,z_, sigma.] =- (1/pO) <r/ <2 GAMMA) * ( (gamma- 1 ) /GAMMA) »ReHold[3 , r, z, sigma) ) ; 
mlmHold { 2. r_,z., sigma.] — (1/pOM * ( (GAMMA- 1 ) /GAMMA) mImHold(3 , r , z, sigma] I ; 

(* 

mHold(l,r_, z_, sigma.] -mReHoldCl, r, z, sigma] ♦ I mlmHold [l,r, z, sigma] ; 
mHold[2,r_, z_, sigma_]=mReHold(2, r, z, sigma] ♦ I mI«Hold[2 , r, z , sigma] ; 
mHold[3,r_, z., sigma.] =mReHold(3 , r, z, sigma] ♦ I mImHold[3 , r, z , sigma] ; 

* ) 

raRacioTemplate-ComplexExpand [ <aVarMRatio*l bVarMRatio) / (cVarMRatio*I dVarMRatio) ] ; 
mRatioImTemplate-Coef f icient [mRatioTemplate, I] ; 
mRatioReTemplate=mRatioTenplate-I mRatio ImTemplate; 

mRatioReHold( { kindNum.. rNum., sigmaNum.) , {kindDem., rDem_. sigmaDem.) , z_) -mRatioAeTeraplate/ . 
{aVarMRatio->mReHold[kindNum, rNum, z, sigmaNum] , 
bVarMRatio->mImHold [kindNum, rNum, z , sigmaNum] , 
cVarMRatio->mReHold [kindDem, rDem, z . sigmaDem] , 



dVarMRatio->mImHold [ kindDem, rDeo.z, sigmaDem] }; 
mRatiolmHoldl { kindNum^, rNuau. sigmaWuiO . { kindDem_ , rDem_, sigmaDenO , z_] =mRatiolmTemplate/ . 
{aVarl*Ratio->mR*Hold[ kindNura, rNUm, z , sigmaNum] . 
bVarMRatio->mIntfiold [kindNum, rNum, z, sigmaNum] , 
cVarMRatio->mReHold [kindDem, rDem, z , sigmaDem] , 
dVarMR*tio->m!mHold [ kandDem, rDtn, z, sigmaDem] } ; 
mRatioHold [ {kindNum_. rNunu, sigmaNum^) , {kindDenu, rDem_, sigraaDem_| , z_] = 
mRatioReHoldl {kindNum, rNum, sigmaNum} , {kindDem. rDem. sigmaDem] , z] * 

I ctf^tioImHoldl {kindNum, rNum, sigmaNum} , {kindDem. rDem, sigmaDem} ,z] ; 

{ ■ tMid m • s * I 

time coordinate £xn 

timeHold [ e_) «HoldForm ( timeRe [t] )*I HoldForm [ timeim [ 1 1 ] ; 
timeRe l t_]*Cos[2Pi t]; 
timeim ( t_] *Sin [ 2Pi t J ; 

timeTwHold ( t_. phiT_] =HoldForra [ t imeTwRe [ t ) , phiT ] ♦! HoldForm 1 1 imeTwRe [ e ] , pbiT ] ; 
timeTwRelt_,phiT_)*Cos[2Pi (t«-phiT) ] ; 
timeTVIm[t_.phiT_]=Sin[2Pi (t*phiT)); 

i* er.d time *3 

Sen cuorcais function? that: remain cons-ar.-, to a numerical Value using Sed.ea^eKold 

Timing I 

mRe|3,l,z_,V} *mReHold[ 3 , 1 , z, V) / /ReleaseHold/ 7N; 
tnirn [ 3 , l , z_, V] *mimHold(3, 1. z,V] / /ReleaseHold/ /N; 
mRe 13 , 1 . z_, PV] *mReHold[ 3 . 1 , z, PV] / /ReleaseHold/ /N; 
mlm ( 3 , 1 , z_, PV) *mImHold[ 3 , 1 , z, PV] //ReleaseHold/ /N; 
mRe[l, 1. z_. V]*mReHold[l , 1, z,V] / /ReleaseHold/ /N; 
mlmtl, 1, z_,V)*mImHold(l,l,2,V)//ReleaseHold//N; 
mRe [2 , 1 , z_ , PV] =mReHold[ 2 , 1 , z, PV] / /ReleaseHold/ /N; 
mlmI2, 1, z_,FV)»mImHold[2, 1, z, PV] / /ReleaseHold/ /N; 

kseRe [ 0 , r_, z_, V) *kseReHold ( 0 , r , z . V] / 1 ReleaseHold/ /N; 
kselm [ 0 , r_, z_. V] =kseReHold [ 0 , r , z , V] / / ReleaseHold/ /N; 
kseRelQ.r_,z_. PV)=kseReHold[0,r, x. PV) / /ReleaseHold/ /N. 
kselm [G,r_,z_, PV]*kseReHold(0,r, x,PV] / /ReleaseHold/ /N; 

kseRe 1 1 , r_, z_, V) =kseReHold ( 1 , r , z , V] / /ReleaseHold/ /N ; 
kseim [ 1 , r_ . z_, v ] « kseReHol d ( 1 , r , z , V] II ReleaseHold/ / n ; 
kseRe 1 1 , r_, z_. PV) =kseReHold [ 1 . r . z , PV] / /ReleaseHold/ /N ; 
kseim 1 1 , r_, z_. PV) =kseReHold [1 . r . z , PV] / /ReleaseHold/ /N ; 

mRatioRel {1, 1 ( V),{2,1,FV], z_] =mRatioReHold[ {1, 1 , V) , {2, 1 , PV) . z) / /ReleaseHold/ /N: 
mRatiolml {l.l.V), [2,1, PV] , z_] =mRatiolmHoldU 1. 1. V) . {2, l . PV} , z ] //ReleaseHold/ /N; 
mRatioRet {3, 1, PV) , {2. 1,PV] , z_]*mRatioReHold({3. 1. PV) , (2,1, PV] , z] / /ReleaseHold/ /N; 
mRatiolml {3, 1. PV) , {2,1, PV} , z_] =mRatioImHold[ [3. 1, PV) , (2. 1,FV) , z) / /ReleaseHold/ /N; 

mRatioRel [1, r_, V} . (l.l.V), z_) =mRatioReHoldt (1, r . V) , [1, 1, V) , z] / /ReleaseHold/ /N; 
mRatiolml [1, r_. V] , {l.l.V}, z_] *mRatiolmHold[ (1, r.V). [1, 1, V}. z] / /ReleaseHold/ /N; 
mRatioRel (2, r_, PV) , {2, l.PV} , z_] *mRatioReHold[ {2 , r , PV} , (2,1, PV) . z] / /ReleaseHold/ /N; 
mRatiolml (2, rZ, PV) , {2. 1 , PV) , z_] =mRaciolmHold[{2 , r , PV) . {2. l.PV) , z] / /ReleaseHold/ /N; 
mRatioRel {3, r_, PV) , {3. 1, PV} , z_]=mRatioReHold[{3, r. PV) , (3,1,PV) , z] //ReleaseHold/ /N; 
mRatiolml {3. r_, PV) , {3, 1, PV) , z_]*mRatioImHold{ {3 , r, PV) r {3, 1,PV}, z] / /ReleaseHold/ /N; 

) 

{12.4333 Second, Null} 

Iwrivativ-ss of r.z.c ' : 

DkseReRtO,r_,z_,v)=DlkseFe[0,r,z,v],r)//N; 

DkselmRl 0 , r_, z_, V)=D( kseim [ 0, r, z,V) ,r] //N; 

DkseReR [0, r_, z_, PV] =D( kseRe [0,r, z,PV] ,r]//N; 

DkselmP tO,r_,z_ ( FV]=D( kseim [0,r, z,PV] ,r)//N; 

DmRatioReR[{l, r_,v) , <1, 1,V) , z_] =D [mRatioRel { 1. r.V) , (1, l.V) , z) ,r] //N; 

IttRatioimRHl. r v) , {l.l.V}. z_3=DlmRatioIm [ { 1, r, V) , {1, l.V) . z] ,r)//N; 

DmRatioReH [ {2, r_,PV} . (2 , 1 , PV) , z_] =DlmRatioRe l { 2 , r, PV} ,{2,l,FV),z],r]//N; 

DmRatioImRI {2, r_,PV) , {2,1, PV) , z_] *D [mRatioIm [ { 2 . r , PV} , {2 , 1. PV) , z] ,r]//N; 
OnRatioReR({3,r_,PV}, {3, l.PV) , z_] =D[mRatioRe [ { 3 , r , PV) , { 3 , 1. PV) , z) , r] //N; 

GraRatiolmRI {3,rZ.PV}, {3,1, PV) , z_] sD [mRatiolml ( 3 , r . PV} , {3. l.PV} , z] ,rl//N; 


DkseReR[0, r_, z_, sigma_] =D[kseReHold[0, r, z , sigma] / /ReleaseHold, rl / /N; 
DkselmR [ 0 , r_, z_, sigma_) =D( kselmHold [ 0 , r , z , sigma] / / ReleaseHold, r ] / /N ; 
DksftReH [ 0 , rl, z_, V } =D [ kseReHold[ 0 , r , z , V) / /ReleaseHold , r] / /N ; 

DkselmR [0,r_, z_,V] =D[ kselmHold [0, r, z, Vl //ReleaseHold, r] //Nr 
•) 

DtimeReT [ t_3 =D[timeRe[t] , t] ; 

DtimelmT[t_)=D[timeIm[t) , tl ; 

DtimeTwReT [ t_, phiT_] =D [ t rmeTwRe 1 1 , phiT ] , 1 1 ; 

Dt imeTwImT 1 1_ , phiT_ ) =D [ t imeTwIm [ t , phiT ] .t) ; 


DuOhatRTemplate = (Uo-(Oo-Ul Exp l I 2Pi phiU] ) zMl- (DkseReOrzV? ♦ I DkselmOrzVR) ) / [1- {kseReOOzV ♦ I kselmOOzV)); 
DuOhatZTen*>late = Gl(Uo-(Uo-Ul Exp [I 2Pi phiU] ) z) <1- {kseReOrxV ♦ I kselmOrzV) )/ (1- (kseReOOzV * I kselmOOzV) ) , = ) ; 


DvOhatPTemplate = ((mRellzV ♦ I mlmllzV) / (1- (kseReOOzV+1 kselmOOzV) ) ) * 

( (IkaRatioRe2rPV21PVzP «• I DraRatioIm2rPV21PVzB ) - (DmRatioRelrVllVzR I DmRatioImlrVllVzR) ) (Uo-Ul Exp 1 1 2Pi phiU] ) 
I* (mRe31zPV-*I mIni31zPV) * l (DmRatioRe2rPV21?VzP>I C«RatiOlm2rPV2IPVzR) - 
(DmRatioRe3rPV31PVzF+I CmRatioIm3rPV31PVzK) ) *Tv*Exp [I 2Pi phiT]; 


DvOhatlTeoplate = ( (mRellzV ♦ 3 mlmllzV) / 11- (kseReOOzV* I kselmOOzV)))* 

{ (mRatioRe2rPV2lPVz * I a»atioIm2rPV21PVz) - imRatioRelrVllVz * I mRatioImlrVUVz)) (Uo-Ul Exp [I 2Pi phiU]) - 
I* {aRe31zPV+I mla 31 zPV) * ( (mRacioRe2rPV21PVz*I mRatio!m2rPV21PVz}- 
{mRatioRe3rPV31PVz*I mRatioIm3rPV31PVz) ) *Tw*Exp[I 2Pi phiT); 


UvOhatZTemplate = 0; I* for at least the gratT0=0 case *) 
M 


"hir. 


E-.-lution 3-D 
bin: -ni't? dei.inftk'i 
thi-stalRe wr- y, # 


lint Coirpl'SxExpar.r.i >n. 
mt««'Ri.T o : urJ^nowr. ' V and phiT and 
n:i T iT*. r. N’o . Livi'St' iv:.t 
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si=F Sqrtl-I] ; 

;* 01: it-ren- Lai *vr . tor theta;. * 1 

thetalFindTw*CoaplexExpand[Tv*ExptI 2Pi phiTl Exp[I 2Pi e](Exp[I si y]-Exp[I si] I Sin[si y]/Cos[si])]; 
thetalReFindTw[y_, t_, F_, phiT_, Tw_] *thetalFindTv-l Coefficient I thetalFindTv.I]; 

DthetalReFindTWY ly_, t_,F phiT_,Tw_] *Collect [D(thecalReFindTw[y , t , F , phiT, Tw] ,y ] , Tw] //N: 

{■ i/ri >:T‘«Tpi it e i ! v::Tvs ip : s .specific template ■ find :v. w \ 

DTlRTaoiplaceFindTw = ComplexExpandl <-I ( { (GAMMA-1) /GAMMA) (Uo-Ul Exp (I 2Pi phiU]} 

(mRatioRallV2lPVx-l mRatiolrallV2lPVz ) • 

(0-(Dk*eReR0rzPV*i DkseimROrzPV) ) / (1- (kseReOOzV+i kselmOOzV))) * 

< OkseReROrzPV+I DkseimROrzPV) - ( ( (GAKHA-1 ) /GAMMA) <mRatioRe31PV21FVn-I mRatioIa31PV21PVx > • 
(0- OkseReROrzPV+I DkseimROrzPV)))) Tw Exp(I 2Pi phiT])*Exp(I 2Pi t]]; 

DTI ImRTwnplateF mdTw * Co«f ficiant [DTIRTemplateFindTv, 1 1 ; 

DTIReRTeraplateFindTw * DTlRTemplateFindTw-I DTlImRTamplateFindTw; 

DTIReFindTwRHoldTemp [r_, z_. t_, V, PV, uo_l Ul_, phiU_, phiT_, Tw_) »DTlReRTemplateFindTw/ . 
{mRacioRellv21PVz->HoldFonn[mRatioRe[ (1, 1, V) , (2,1, PV) . z] ] , 
mRatioImllV21PVz->HoldForalmRatioIm[ { 1 , 1,V), {2,l,PV}.z] ] . 

Dks*ReROrzPV-:>HoldForm[Dks*R*R[0, r, x, PV]), 

DkseI»ROrzPV->HoldFonn [ DkselmR [ 0 , r , z , PV] ] . 
kseR*00zV->HoldFora [ kaeRe [ 0 , 0, z, V] ] , 
kseIm00zV->HoldFonn [kaelm ( o, o, z. V] ] , 

mRatioRe31Pv21PVz->HoldForm[mRatioRe [{3.1, PV) , {2 . 1. PV) , z] ] , 
mRatioIm31PV21PVz->HoldForra [mRatioIm [ {3, X. PV) , (2. 1,PV} , z] ]) ; 

DTlReFindTwRHold [ r_, i_, t_, V, PV,Uo_,Ul_,phiU_,phiT_,Tw_|» 

Collect(Expand[DTlReFindTwRHoldTemp(r, z. t,V,FV,Uo,Ul, phiU, phiT, Tw] ] ,Tw] ; 

DTlImFindTwRHoldTemp [r_, z_, t_, V, PV, 'Jo_,Ul_, phiU_, phiT_. Tw_] =DTllmRTefflplateFindTw/ . 
(aRatioRellV21PVz->HoldFonn[mRatioRe[ {1,1, V) , {2 , 1 , PV) , x ]] , 
mRatioImllV2lPVz-»HoldForm [mRatioIm [ {1,1, V) , <2.1,PV).z] ] , 

DkseReROrzPV->HoldFor® [ DksaReR [ 0, r , z. PV] ] . 

DkseImROrzPV->HoldForm(DkselmR[0,r,z.PV] ] , 
kseRe00zV->HoldForm ( kseRe 1 0, 0, z, V] ] , 
kseIm00zV->HoldFonn ( kselm (0, 0, z, V] ] , 

mRatioRe31PV21PVz->HoldForm[aRatioRe [ { 3 , 1 , PV) , {2,1,PV) ,z] ] , 
mRatioIm31PV21PVz->HoldFonn(mRatioIm( {3 , 1 , PV] . {2. 1, PV) , z] } } ; 

DTI ImF i ndTwRHo 1 d ( r_ , z_, t_, V, PV, Uo_, Ul_, phiU_. phiT_, Tw_} * 

Collect(E>cpand{DTlImFindTvRHoldTeiaplr,z,t,V,PV,Uo,Ul, phiU, phiT, Tv] ) ,Tv] ; 


f* DaLJi Lien for Jittlnt* V.& conducts vi"y nv.- c i j r v-u * j 

condDataStar»{(.8, 20, . 02830} , { .8, 25, . 03108 ) , { .8 , 30, . 03518) , { . 8, 40 , . 04160} , { . 8, 50 , . 04766) , { . 8, 60, . 05342 } , 
1.8, 80, .06426). { .8, 100, . 01439}, { .8, 120, .08396) . { . 8. 140, .09310), {.8,160, .1019), (.8,180, .1103), 
(.8,200, .1185} .< .8,220, .1265) .(.8.240, . 1343) ,( .8,260, . 1418 ) , ( . 8 , 280, . 1492) . { . 8 , 300, . 1S65 } , 
{ .8,350, .1740} ,( .8,400, .1909} ): 

condFitStar[p_,T_]=Fit[condDataStar, (l,p,T,p A 2,T A 2,p A 3,T A 3), (p,T) ] ; 


< • SOLVE rOR TW AMD PHIT - I 
{ * SoIt* for TMhat bar* * ) 

For Fo * 99.9996 

TWhat = 0.31027 - 0.0779612 I 

TW * 0.319915 

PHIT - -0.0391796 


{* OLD Solve for TW -) 

First Round: So It* for implicit function 

r* te :.v-j - t . -x at the wall. Solve for Tv and make to 

Tv i , z , •; , v , PV . wo . tC . ph . phiT . ksas . F . tTube i . 

we f;an retain^ tha r - dependenoi- ir. 'Pw, to firs ; t ovcer. "V is corij'wi* in r. 
t> ,v l'c,:: ta k*ii vji 1 ye i 1 -!: Tw ui Co spied- v;p ttiw calc *5 

Timing [ 

C«©Var=Solve[DthetalReFindTwY(0. t, F, phiT.Tw] ==KGAS DTlReFindTwRHold[ 1 , z, t , V, PV , Uo , U1 . phiU , phiT , Tw] , Tw] ; 
Twall [ 1 , z_, t_, V, PV, Wo_, Ul_, phiU_,phiT_, 1CGXS , F. KTUBE) =Tw/ . t«e«pVar ([1,1] ) //ReleaseHold//N; 
deltaTwll. Z_, (tl_, t2_) , V,PV,Uo«, Ul_, phiU_,phiT_, KGAS , F , KTUBE ] * 

Twall (1, z, t2, V, PV, UO, Ul, phiU, phiT, KGAS.F, KTUBE) -Twall (1, 2 . tl,V,PV,Uo, Dl.phiU, phiT, KGRS,F, KTUBE] ; ] 

(17.6667 Second, Null) 

Second Round: ■unarical Soot Pindar 

•;ucT'er^.o<i.] ph:T aivri Tw i i: you caji nuke a tjood tjiiess . 

Otherwise!, lso ’plot" in'? tool: ' l^low. 

It root found. ao^igEi to PHIT and T.v . 

Check .'ulue found for PM IT. Tw s*h<iu.lc it* constant for all t . 

tetpVa r *N [ PindRoot I del taTw [ 1 , 0, { .1, . 45} ,V, PV, U0, UL, PHIU, phiT, KGAS, F, KTUBE] *=0 , (phiT, ,3)1] ; 

temp PH IT = 0 .2607 85; tempTW * -0.516552 
PHIT=-0. 239215 

Twall*{0. 516552, 0.516552, 0.516552, 0.516552, 0.516552, (0.516552)} 

(* check z (in) dependence of Twall *) 

Plot (Twall [1,2, 0, V, PV.U0.UL, PHIU, PHIT , KGAS , F , KTUBE ! , (x.O.l)) 


-Graphics- 


j- rlotp. to f: : :v. : anpreti ma te syf PHIT an T;i~T. . DITwa'l t] •ncr.tiivicu.s ’• 

{* Plat avci ENTIRE SWiOE ' ' 

Timing [Block [ (tl = . l, t2=. 45}, Plot [del taTw [1, 0. (tl . t2) , V, PV.U0.UL, PHIU, phiT, KGAS, F, KTUBE] , 
(phiT, 0, 1) , (*PlotRange->(- . 1, . 1}?*) AxesLAber->{ *phiT* , *ATw* } ]] ] 
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{3.05 Second. -Graphics-) 

r Plot over 7,0GB- IN RANGE . * ) 

i- increase thv* «pr<wd in c up to At ->v.= tor ptaepar curves that -ire closer cc the singularity 
IVicrwiSw ~ ;?pr«iid in t down to At •> » ■'> for shallow cur/es that aro tartnvi trots the singularity w < 

Tuning [Block ( (t L* . 45, t2*. 55} . Plot (deltaTw[l , 0, { tl , t2 } , V, PV, U0 , UL, PHIU , phiT , KGAS , F , KTUBE ] . 

{phiT, . 35, • 45). (*PlotRange->{-. 1, .1), * ) AxesLabel-> ( *phiT* , *ATw’ ) ] ] ] 


{0.483333 Second. -Graphics-) 

( • Trv tc jluvi PHIT and T'.v again ' ■ 

i - •_ i you can now make a good yuess tor starting pom*, Use me plotting tw.s jouv*- to aet a;*, approx; no t e 
i daa or where the root is. Thii numerical a^cnod u¥«ci is socan t method, 'i 

F indRoo t [ del taTw (1,0. { .45. . 55} , V, PV, U0 . UL, PHIU. phiT, KGAS, F, KTUBE ]-=0, 

(phiT, { . 36. . 38 ) }] 

( *PHIT*phiT/ . 1 1 [1 ) 1 ; *) 

I f [ Less { tewpTW. 0 ] . PHIT* terapPHIT- . 5 , PHIT* teoipPHIT ) ; 

(*If (Greater [tempPHIT, *0.5] , PHiT=ten*>PHIT- 1 , PHIT* tempPHIT) :*) 


Print ( ’PHIT** . PHIT] ; 

Print [ ’Twall* ’ , {Twall [1. 0, .0, V, PV. UO.UL, PHIU, PHIT, KGAS, F, KTUBE] , 


TW = Twall (1. 0, Random! 1 , V,PV,U0,UL, PHIU, PHIT. KGAS, F, KTUBE} ; 


Twall [1, 0. . 125. 
Twall [1,0, .25, 
Twall [1, 0, .50, 
Twall [1, 0, Random! ] 


V. PV, UO.UL, PHIU. PHIT, KGAS. F, KTUBE] , 

V, PV, UO.UL, PHIU, PHIT, KGAS, F, KTUBE] , 

V. PV, UO.UL, PHIU, PHIT, RGAS.F, KTUBE] , 

,V, PV, UO.UL, PHIU. PHIT, KGAS, P, KTUBE] }}; 


; - intrjrK-sdsatH savmy oi; Parawi-eswiy" 

Print [* {* INTERMEDIATE SAVING OF CALCULATED Twall [ 1 , 0 , t , V, PV, UP , UL, PHIU, phiT, KGAS , F, K TUBE] *D; 

Print ! * (• FOR ParameterList ( * .pListVar , • ) * , * *)*); 

Print [ ’Twall 11,0, t_, V, PV, U0, UL, PHIU, phi T_, KGAS, F. KTUBE] *’ , Twall [1, 0 , t, V, PV, UO , CL , PHIU , phiT, KGAS , F, KTUBE] 


(" INTERMEDIATE SAVING OF CALCULATED lambdaAtl and Twall [1 , 0 , t ,V, PV, U0, UL , PHIU , phiT, KGAS, F, KTUBE] *) 

(* FOR ParameterList IpListVar] *) 

lambdaAtlsO . 00394773 - 0.0000298093 I; lambdaAtlRe*0 . 00394773 ; larabdaAtlIm=-0 . 0000298093 ; 

Twall ! 1 , 0 , t_, V, PV, UO.UL, PHIU, phiT KGAS, F , KTUBE ] * 

(-0.00807124 {77.2504 Cos[6. 28319 t] * 88.2443 Sin(6. 28319 C] )) / 

(15.1675 Cos [1.3376 - 6.28319 phiT - 6.28319 t] - 6.39891 Cos[6. 28319 (phiT * t) ] - 

84.1828 Cos|6. 28319 phiT * 6.28319 t] - 8.66834 Sin[1.3376 - 6.28319 phiT - 6.28319 t] * 

0.526423 Sin[6. 28319 (phiT * t]] * 84.1828 Stn[6. 28319 phiT * 6.28319 t] ) ; 

(* AUTOBREAK *} »*«*«****»«■= 

• PARAMETER LIST (for use in exporting to plot routine*) 

ParemeterLiat*{V. PV, KGAS , KTUBE, U0 , UL. H , ep* , GAMMA, PHIU, F. TERM , N [TW. S ] .N[PHIT,5]) ^ ^ 

Para»etarLiat»(5.6419 SqrttPi], 4.72932 SgrtlPi], 0 ,0091411. 1.. 1-. 1.. 1-20617 10 Pi, 0.002, -0.1. 0.0564191 Sgrt(Pi), 16. 0.31991, -0.03918) 

. SOLUTION OF TW AT MIT FOR CONTINUITY OF HEAT FLUX AT GAS /TUBE BOUNDARY 
TW*0. 319915 «t PHIT—0 .0391796 

• RANDOM TIKE CHECK, ALL VALUES FOR TW SHOULD BE THE SAKE 
t Random-0. 215549 

PH IT--0. 0391796 

Twall* (Twall [1. , 0. 0., 10., 8.3825, 1.. 1-. -0.1, -0.0391796, 0.0091411. 0.1, 1.1. 

Twall [1.. 0, 0.125, 10.. 8.3825. 1., 1.. -0.1. -0.0391796, 0.0091411, 0.1, l.J, 

Twall (1 . , 0, 0.25. 10., B.382S, 1., 1.. -0.1. -0.0391796, 0.0091411. 0.1. 1.]. 

Twall 11., 0. 0.5. 10., 6.3825, 1., 1.. -0.1. -0.0391796, 0.0091411, 0.1, 1.). 

Twall [1 . , 0, 0.215549, 10., 6.3825, 1.. 1., -0.1, -0.0391796. 0.0091411, 0.1. 1.]) 

Baaaal Fxn Accuracy* { (V) ;Ba*aelJ; (ber*I b*i>; KodBatial JHold; Argument->inf inity approximation) 

Beaael Accuracy Hi * ( (9 . 99999925) . 149.847528, 149.847526. 149.847526. 148.537427} 

Baaaal Accuracy Lo * ({0.999999925), 1.01552483. 1.01552483. 1.01S52483. 1.00386903} 

• NON -DIMENSIONAL SCALING VARIABLES CALCULATED: ^ 

Va*100. , Pr=0.703; Pr’Va*70 .2663 ; S *500.; Fo*100.. EL* 0 . 00600497 , K*3. 78929 10 ; RaO *4.89902 

pO*l; TO [z ] *1 : rho0(z]*l 

• NON- DIMENSIONAL VARIABLES USED IN COMPLEX SOLUTION: 

-6 -9 

V«10 P»0 8382S- PV*8 . 3825 ; epa-0.002; F-0.1; K*3. 78929 10 ; LAMBDA* 4 . 30762 10 ; *pt*Va*0.2 

5 

U0*1 . ; UL* 1 . ; PHIU*-0,1; TERM* 16 ; KGAS *0.0091411; KTUBE*!.; GAKKA*-. d0*0.002; dL*0.002; PHIT*-0 . 0391796 ; TW*0. 319915 


ARCHIVE parameter Liat 

i * NE-\ * i 


: * Ca. ises . I <io~ henM ;; * ) 
<• Fee Thesis c>: ’> 


I* LINEAR FLOW velocity scalirp ;.r*a ?. ►' .i 

Anfwen to linear flo w 

{* ANSWERS to first Order Plow •) 

<* U0, tO, Tl, pi. rhol •) 


plhatTenplate = ( (-1/ tl- (kseRe00zV*I kselmOOzV) )) * 

(mRatioRellV21PVz ♦ I mRatiolmllV21PVz ) (Uo-Ul Exp! I 2Pi phiU])- 
(mRatioRe31PV2lPVz * I mRatioIm31PV21PVz ) Exp 1 1 2Pi phiT]Tw); 
plhatTemplateTwhat * < ( -1/ <1- (kseReOOzV*-! kselmOOzV} ) ) • 
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(raR»tioRellV21PVz ♦ I mRatiolrallV21PVz ) (Uo-Ul Exp|I 2Pi phiU])- 
(mRatioRe31PV21PVz ♦ I mRatioIra31PV21PVz> Twhat) ; 

p2hatTenplate * I ( (Uo-Ul Exp [I 2Pi phiu]) / <1- (kseRe00zV«-I kselraOOzV) ) ) <*^2/2 ) - I z/ U- <kseRe00zV*-I kseloiOOzV) > : 
uOhatTenplace * (Uo- (Uo-Ul Exp[i 2Pi phiu] >z)|l- (kseReOrzV ♦ I kaelmOrzV) ) / (1- (kaeReOOzV ♦ I kseiraOOxVM ; 

TlhatTenplace * (-1 << (GAMMA- 1 ) /GAMMA) (Uo-Ul Exp [I 2Pi phiUj) <mRatioRellV21PVz*I mRatioImllV21FVz> * 

( 1 - { fcseReOrzPV* I k*elmOrzPV>) / <1- f kseReOOzV+i kselraOOzV))) ♦ 

( (k*eReOrzPV-X kjelmOrzPV) -(( (GAMMA- 1) /GAMMA) (mRatioRe31FV21FVz*I raRatioIm31PV21FVz)* 

(l-(kseReOrzPV*I kaelmOrzPV) ) ) ) Tv Exp [I 2Pi phiT] ) ; 
vOhatTeraplate * UaRellzV * I olmllzV) / (1- (k*aReOOzV+I kaeiitOOzV) ) ) * 

{ lreRatioRe2rPV21PVz * I ntflatiolra2rPV21PVz) - (raRatioRelrVllVz ♦ I mRatioImlrVllVz) MUo-Ul Exp ( I 2Pi phiU)) - 

I* (mRe31zPV*I mIm31zPV) • ( (mRatioRe2rPV21PVz*I mRatioIm2rPV21PVz) - <mRatioRe3rPV31PVz*I mRatioIm3rPV31PVz ) ) - 
Tw'Exp [ I 2 Pi phiT) ; 

rholhatTeaplate * plhatTemplate/TO [z] - rhoO|z] TlhatTenplate/TO(z] ; 

particleTracehatTeoplate = -I (do- (do-dl ExptI 2Pi phiu] > z) (1- (aDORe+I aDOim) > / ( 1- (bD0Re*I bDOIm) ) ; 
plVolhatTenplate = (-1 2 GAMMA <r (OTlhatReF.Var*! DTlhatlmRVar) /Power [PV, 2 ] - 

(mRel IzV+I mlmllzV) (Uo-Ul Exp [I 2 Pi phiu] ) / (1- (kseReOOzv + I kaelaOOzV) ) ) ) ; 

plTeoplate * ConplexExpandJExpII 2Pi t] plhatTenplace] ; 
uOTeraplate - CoaplexExpand [ Exp [ I 2Pi t] uOhatTenplace] ; 

TlTeoplate * CoaplexExpand [ Exp ( I 2Pi t) TlhatTenplace] ; 
vOTeaplate * CoaplexExpand [Exp[ X 2Pi t] vOhatTeraplate] ; 

particleTraceTenplate * CoaplexExpand [Exp [I 2Pi t] particleTracehatTeoplate]; 
plVolTeoplate ■ ConplexExpand [Exp [ I 2Pi t] plvolhatTeoplate] ; 
rholTemplate = CoraplexExpand [Exp (I 2Pi t] rholhacTaraplate] ; 

plReTemplate * plTemplate-i Coef ficient [plTeoplate, I ) : 
uOReTeraplate » uOTeraplate-I Coef f icient [uOTeraplate.D ; 

TIReTenplace * TITeraplate-I Coef f icient [TITenplate. I] ; 
vOReTenplate * vOTeoplate-I Coefficient [vOTaaplate, I] ; 

particleTraceReTeoplate * particleTraceTeraplate-I Coef f icient [ parti cl eTraceTeraplate, I ] ; 
plVolReTeraplate * plvolTeraplate-I Coefficient [plVolTeoplate, I] 
rholReTeraplate * plReTeraplate/TO [ z | - rhoO[z] TIReTemplate/TO [z] ; 

C 

plRehatTeaplate = plhatTeraplate-I Coefficient[plhatT«nplacc, I] ; 
uORehatTeraplate * uOhatTemplate-i Coefficient [uOhatTenplace, I] ; 

TIRehatTenplate * TlhatTeraplate-I Coef ficient [TlhatTeraplate, I] ; 
vORehatTeroplate * vOhatTemplate-I Coef f icient [vOhatTeraplate, I ] ; 

particleTraceRehatTemplate * particleTracehatTeraplate-l Coefficient [particleTracehatTeoplate, I) ; 
plvolRehatTeraplate * plVolhatTenplate- I Coef ficientlplVolhatTemplate, 1] ; 
rholRehatTenplate * p 1 Reha tTenp late/ TO [ z] ♦ rhoO(z] TIRehatTeraplate/TO [z] ; 

•) 

uOhatIraTenplate»Coef ficient (ConplexExpand (uOhatTenplate] .11: 
uOhatReTeoplate*Conplex£xpand (uOhatTenplate) -I uQhatiraTaaplate; 
uOhatCCTenplate*uOhatReTemplate-Z uOhatlmTenplate; 

vOhatIMTenplate*Coef ficient [CoaplexExpand (vOhatTeraplate] , I] ; 
vOhatReTeaplate*ConplexExpand [vOhatTeraplate] -I vOhatlraTeraplate; 
vOhatCCTenplate*vOhatReTeraplate- 1 vOhatlarTenplate; 

TlhatIaTeraplate*Coef £ icient [CoaplexExpand [TlhatTeraplate] . I); 

TlhatReTenplate*ConplexExpand [TlhatTenplace ] -I TlhatlmTemplate; 

TlhatCCTenplate*TlhatReT«nplate-l TlhatlraTenplace: 

plhaclnTeoplate*Coef ficient [CoaplexExpand (plhatTeroplate) , I) ; 
plhatReTenplate*ComplexExpand[plhatTemplaLe] -I plhatlmTeeplate; 
plhatCCTeoplate»plhatReTeBplate-i plhatimTeraplate; 

plVolhatI»Tenplate*Coeff icient [CoaplexExpand [plVolhatTenplace] ,11; 
plVolhatReTeoplate*CoaplexShpand [plVolhatTenplate! -I plVolhatlraTeraplate; 
plVolhatCCTenplate*plvolhatReTenplate-l plvolhatimTeoplace; 

rholhatlnTeoplate«Coef ficient [ConplexExpand [rholhatTeraplate] , I] ; 
rholhatReTeraplate«CoraplexExpand[ rholhatTeraplate] -I rholhatlmTemplate; 
rholhacCCTemplate»rholhatReTeraplate-l rholhatlmTemplate; 

DTlhatRTeoplate * CoaplexExpand [( -I (( (GAMMA-1) /GAMMA) (Uo-Ul Exp [I 2Pi phiU]) (raRatioRellV21PVz+I mRatioImllV21PVz > * 

(0- (OkseReR0rzPV+l DkselmROrzPV) ) / (1- (kseAeOOzV*I ktelmOOzV) ) ) ♦ 

( (DkseReROrzPV^I DkaelraROrzPV) -(( (GAMKA-1 ) /GAMMA) (a»RatioRe31PV21PVz+I mRatioIra31PV21PVz) * 

(0- (OkseReROrzPV*I DkeelmROriFV) } > ) Tw Exp l I 2Pi phiT])]; 

DTlhatlraRTeraplate * Coefficient [DTlhatRTemplate.I] ; 

DTlhatReRTeoplate * DTlhatRTeraplace-I DTlhacimRTeraplate; 

DTlhatReRHoldTerapt r_. z_, t_,V, PV,Uo_.Ul w ,phiU_.phiT_,Tv_]*2TlhatReRTeraplate/ . 

(jnRatioRellV21PV2->Hold7orra[mRacioRe[ (1. l.V) . {2 . 1. PV) , zj ] . 
mRatioImllV21PVz->HoldForm[mRatiolml (1, 1 , V) , (2.1.PV) ,z] ] . 

Dk*eReROrzPV->HoldForra[DkseReR (0,r, z , PVJ] , 

DkjelmROrzPV->HoldFonn[DkaelmR[0,r, z,PV] ] . 
kaeRe00zv->HoldPom IkaeRe [ 0, 0, z, V] ] , 
kaelm00zV->HoldForra [kaelmt 0, 0, z, V] ] , 

raRatioRe31PV21PV2->HoldForra[mRatioRe[{3, l.PVl, {2,l,PV),x] ] , 
raRatiOlm31FV21PV2->HoldForm|mRatioIni[ (3. l.PV) . {2, 1, PV) , 2 ) 3 ) ; 

DTlhatReF.Hold [r_, z_, t_, V, PV, Uo_, Ul_, phiu_, phiT_, Tv_] = 

Collect (Expand] OTlhacReRMoldTenptr, z, t.V,PV,Uo, Ul, phiu, phiT, TwJ | ,tv); 

I/TlhatlraRHoldTerapt r_, z_, t_.V, PV,Uo_,Ul_.phiU_,phiT_,Tw_)sDTlhatlraRTeaplate/ . 

{mRatioRellV21PVz->HoldForra[mRatioRe[ (1, l.V) , (2, 1 , PV) ,zl 1 , 
mRatioImllV21PVz->HoldForra[mRatioIm [ (1, l.V) , {2. l.PV} ,z] 1 . 

Dk«eReR0rzPV->HoldForm[UkaeReR[0, r, z,PV) } . 

Dk»elmROrzPV->HoldForm[DkseIraP [0 , r, z, PV] ] , 
kseRe00zV->HoldForm[kseRe[0, 0, z, V}] , 
kaeIm00zV->HoldForra( kselai[0, 0, z, V] ] , 

mRatioRe31PV21PVz->HoldTonn[raRatioRe[ {3.1, PV) , (2, 1, PV),z] ) , 
mRatiOlra31PV21PVz->HoldFonn[mRatiolra[{3, 1,PV) , (2. 1. PV) ,zj ] }; 

DTlhatloAHold 1 r_, 2 _, t_, V, PV, Uo_, Ul_, phiU_. phiT_ , Tw_] = 

Collect [ Expand (UTlhatlnRHoldTeraptr, z, t,V, PV,Uo,Ul,phiU,phiT, Tw] ] .Tw); 


(* 

vOhatTeaplate/ / Compl exExpand 
%==vOhatReTeraplate+l vOhatiWTenplate 
*> 


(* 

plhatCCTenplate * plRehatTeaplate- 1 Coefficient (plhatTemplate, I ] ; 
vOhatCCTenplate = vORehatTenplate-I Coefficient [vOhatTeaplate, I) ; 

particleTracehatCCTemplate = particleTraceRehatTemplate-l Coef ficient [par ticleTracehatTeraplate, I ] : 
plVolhatCCTenplate = plVolRehatTenplace-I Coef ficient [plVolhatTemplate. I] ; 



{* Assignments and Compilations *) 


plAssign={kseReOOzV->HoldForm[ kseReHold! 0, 0, z, sigmaV] 1, 
kseIm00zV->HoldPorm [ kselmHold [ 0 , 0 . z , sigmaV ) ] , 
mRetioRellV21FVz->HoldForm(mRatioReHold[ {1,1, sigmaV} , (2 , 1 , sigmaPV) , z] ) , 
mRatioInillV21PVz->HoldForm [aRatioImHold [ {1,1, sigmaV} , {2 , 1 , sigmaPV} , z ]] , 
mRatioRe31PV21PVz->HoldForni(mRatioReHold( {3, 1, sigmaPV) , {2, 1, sigmaPV} .*11 , 
mRatiolm31PV21PVz->Holdrorm[mRatiolmHold[ {3.1, sigmaPV) , {2 , 1, sigmaPV} , z] 1 }; 

plReHold[z., t_. sigmaV_, sigma PV_, Uo_. Ul_,phiu_,phiT_,Tv_]=splReT«Diplate/ .pi Assign; 

plR*[z_, t_, sigmaV., sigmaPV., Uo_, Ul_,phiU_,phiT_, Tw.] :*plReHold[*. c, sigmaV, sigmaPV, Uo, Ul.phiU, phiT, Tv] // 

ReleaseHold/ /ReleaseHold/ /N ; 

pIRe (z_. C_, V, PV, UO. UL, PHIU , PHIT. TW] =plRe [ z , t , V, PV, UO , UL, PHIU, PHIT, TW] ; 

piRe(z_,t_, V.PV.UO.UL, PHIU, PHIT, 0) splRe E Z, t , V, PV.UO, UL.PHIU, PHIT, 0) ; 

plha t Hold [ z_ , sigmaV., sigmaPV., Uo_, Ul_, phiU_, phiT_, Tv.] =plhatTemplate/ . pi Assign ; 

pi hat ( z., sigmaV., sigmaPV. , Uo_ , Ul., phiU_, phiT., Tv.] : splhatHold [ z , sigmaV, sigmaPV , Uo , Ul , phiU , phiT , Tw] / / 
ReleaseHold/ /ReleaseHold/ /N ; 

plhat (z_,V, PV, UO, UL. PHIU , PHIT, Tw_] =plh«it[z, V, PV, UO , UL, PHIU, PHIT,Tw]//CoraplexExpand; 

pi ha tHo Id [z_. sigmaV., sigmaPV., uo_.Ul_,phiU_,Twhat_]=plhatTeoplateTwhat/.plAsBign; 

plhat t z., sigmaV., sigmaPV., Uo., Ul_, phiU., Tvhat.] : *plhatHold[ z , sigmaV, sigmaPV , Uo,Ul , phiU , Twhat ] / / 
ReleaseHold/ /ReleaseHold/ /N ; 

plhat [ z., V, PV, UO , Ul_, phiU., fo.] *pihat tz.V, PV, U0,U1, phiU, Twhat [Ul.phiU, fo] ) ; 


p2hatHold[z_, sigmaV., Uo., Ul., phiU.] =p2hatTemplate/ .plAssign; 

p2hat ( 2., sigmaV., Uo., Ul., phiU.] : *p2hatHold [ z , sigmaV, uo , ul , phiU] / /ReleaseHold/ /ReleaseHold/ /N 
Cp2hatTz_, V,U07ul,PHIU] =*p2hat [z, V, UO , UL, PHIU] / /ComplexExpand;* ) 

Dp2hatZ[z_, V,Uo_,Ul_,phiU_]sD[p2hat ( z, V, Uo, Ul .phiU] , z] ; 
Dp2hatZtz_,V,UQ,UL,PHIU)=D[p2hat[z,V,U0,UL,PHIU] , z] ; 


plVolAssign*{mRellzV->HoldForm[mRe[ 1 , 1, z , V] ] , 
mImllzV->HoldForm[niIm[l, 1, z, V] ) , 
kseRe00zV->HoldForra [ kseReHold [ 0 , 0 , z , V]} , 
kseIm00zV->HoldForm ( kselmHold [ 0 , 0 , z , V] ] , 

DTlhatReRVar->HoldForm(DTlhatReRHold [ 1 , z , t , V, PV, Uo , Ul . phiU , phiT , Tw] ] , 

DTlhatImKVar->HoldForm iDTlhatlmPHoldl 1 , z, t,V,PV,Uo.Ul, phiU, phiT, Tw] ] , 
r->l} ; 

plVolReHold[z_, t_, sigma V_, sigmaPV., Uo_,Ul_, phi U_, phiT., Tw.] «plVolReTesnplate/. plVolAssign; 

plvolRe t z_, t.TsigmaV., sigmaPV., Uo_, Ul_, phiu_, phiT., Tw_] : =plVolReHoldl z , t , sigmaV, sigmaPV , Uo. Ul , phiU, phiT, Tw] / / 
ReleaseHold/ /ReleaseHold/ /N,- 

plVolRetz.. t_. V.PV.UO.UL, PHIU, PHIT, TW] splVolRe [z , t, V, PV, UO, UL , PHIU , PHIT , TW] ; 

plvolRe ul. t_,V, PV.UO, UL, PHIU, PHIT, 0] *plVolRelz,t,V, PV.UO, UL. PHIU, PHIT,0] ; 


TlAssign={mRatioRellV21PVz->HoldForin[mRatioReHold[ {1, 1, sigmaV} , (2 . 1 , sigmaPV) . z ] ] , 
mRatioImllV21PVz->HoldForm[mRatiolmHold( {1.1. sigmaV} , {2 , 1 , SigmaPV) ,z] ] , 
kseRe00zV->HoldForm[ kseReHold [ 0 - 0. z. sigmaV] ] , 
kselm00zV->HoldForm[ kselmHold |0, 0, z, sigmaV] ] , 

mRatioRe31PV21PVz->HoldPorm[mRatioReHold( (3, 1 , sigmaPV) ,{2,1, sigmaPV) , z] ] , 
raRatioIm31PV21PVz->HoldForm[niRatioImHoldt {3 , 1 , sigmaPV} .{2,1, sigmaPV) , z] ] , 
kseReOrzPV->HoldForm: kseReHold [0, r, z, sigmaPV] ] , 
kselaOrzPV->HoldForratkseImHoldI 0 , r, z, sigmaPV] ] }, 

TIReHold t r_, z_, t_, sigmaV., sigmaPV., Uo., Ul., phiU., phiT., Tw.) =TiReTe®plate/ . TIAssign ; 

TlRe [r_, z_, t_, sigmaV., sigmaPV., Uo_, Ul_, phiU., phiT., Tw_] : = 

TIReHold [r,z, t, sigmaV, sigmaPV, Uo.Ul, phiU, phiT, Tw] //ReleaseHold/ /ReleaseHold//N; 

TIR^j tr., z., t_, V. PV, UO.UL. PHIU, PHIT, 0)*TlRetr,z,t. V.PV.UO.UL. PHIU, PHIT, 01; 

TlF.e[r_,z_,t_, V.PV.UO.UL, PHIU, PHIT.TW) =TlRe|r, z, t, V, PV.UO. UL, PHIU, PHIT, TW] ; 

ql t r., z_, t., V, PV, U0.UL, PHIU, PHIT, 0 J =- Expand [D[TlR«(r, z, t, V, PV.UO .UL. PHIU, PHIT, 0] , r) ] ; 
ql [ r _, z_, t_, V, PV, U0, UL, PHIU, PHIT, TW| =- Expand [D[T1R& lr , z, t , V, FV,U0 ,UL, PHIU, PHIT, TW] , r ) ] ; 

TlhatHoIdlr., z_, sigmaV., sigmaPV., Uo_,Ul., phi U_, phiT., Tw_J*TlhatTemplate/ .TIAssign ; 

Tlhattr., z.TsigmaV., sigmaPV., Uo_,Ul_, phi u., phiT., Tw_] :» 

TlhatHoIdlr, z, sigmaV, sigmaPV, Uo, ul , phiU, phiT, Tw] / / ReleaseHold/ /ReleaseHold/ /N; 

Tlhat I r_,z_, V.PV.UO.UL, PHIU, PHIT. Tw_] sTlhdt [r, Z, V.PV.UO.UL, PHIU, PHIT. Tw] //ComplexExpand; 

{* Expand for some unknown reason keeps in a form for DTlhatR to be in Re+I Im form*} 

DTlhatRIr , z_, V, PV, U0 ,Ul_.phiU , PHIT, Tw.] =D[Tlhat (r, x,V, PV.UO, Ul. phiU, PHIT, Tw] ,r] <*/ /ComplexExpand* ) ; 
DTlhatRIrl.z., V.PV.UO.UL, PHIU, PHIT, Tw_] =D [Tlhat [r. z , V.PV.UO.UL, PHIU, PHIT. Tw] ,r] (•/ /ComplexExpand* ) ; 

glhatlr., z_,V, PV.UO, UL, PHIU, PHIT, 0] *-DTlhatR[r, z , V, PV, U0.UL, PHIU, PHIT, 0] ; 
qlhatlr., z_, V, PV, UO.UL, PHIU, PHIT, TW] = -DTlhatR [r, z, V, PV.UO, UL, PHIU, PHIT , TW ] ; 


IntTlhatROl I z_, V. PV, U0 . UL, PHIU , PHIT , TV.] = 

2 Integrate [r Tlhac [r, z, V, PV, UO , UL, PHIU, PHIT, Tw] , C r, 0 . 1 } 3 (*//CocsplexExpand*> ; 

NuC { l_, V, PV, U0, UL, PHIU , PHIT, TW.] = 

-DTlhatR] 1 , z , V, PV, UO, UL, PHIU, PHIT, Tw) / (Tw Exp]I 2Pi PHIT] * IntTlhatROl [z.V, PV, UO, UL. PHIU, PHIT, Tw] ) 
( * / /Cooe>lexExpand" } / /N; 


{* CAN't Do this, cannot specify PHIT and TW independent of phiU and Ul!!!! 

IntTlhatROl ( z_, V, PV, U0 , Ul_, phiU., PHIT. Tv_] = 

2 Integrate (r Tlhat (r, z.V, PV, U0,Ul. phiU , PHIT, Tw] . {r, 0, 1 ) ) C//Corq?lexExpand*} ; 

NuC l z_,V, PV.UO, Ul.,phiU_, PHIT, Tw_] = 

-DTlhatR ( 1 , z, V, PV, U0, Ul , phiU , PHIT , Tw] / (Tw Exp [ I 2Pi PHIT] - IntTlhatROl [ z , V. PV, U0 , Ul , phiU , PHIT, Tw] ) 
{*/ /ComplexExpand*) //N; 


*) 

l*DTlhatTwhatR(r_, z_, V, PV, UO , Ul_, phiU_, Twhat.] = 

Collect [Expand [D(TlhatTwhat [r. z,V, PV.U0. Ul.phiU, Twhat ] ,r]] .Twhat] ;*) 


IntTlhatROl I z., V, PV, UO, Ul_, phiU_, Twhat. J = 

Collect (2 Integrate ]r Tlhat Twhat l r, z,V, PV.UO, Ul.phiU. Twhat ]. (r,0. 1)J .Twhat 1 {‘//ComplexExpand >; 
NuCIz_, V, PV.UO, Ul.. phiU., fo_] = 

- (DTlhatTwhatR (1 . z, V, PV, U0.U1 , phiU, Twhat [Ul.phiU, fo] S / (Twhat [Ul.phiU, fo] - 
IntTlhatROl [z-v, PV, U0, Ul.phiU, Twhat [Ul , phiU. fo] ) ) ) 

{•//ComplexExpand//N*l ; 


DeltaT Lha* [0 V, PV,U0, UL, PHIU, PHIT, 0 J sTlhat 1 1, 0,v, PV.UO, UL.PHIU , PHIT. 0} -IntTlhatROl (0. V.PV.UO.UL, PHIU, PHIT, 0) ; 

DeltaTlhat [O.V, PV.U0, UL.PHIU. PHIT, TW]=Tlhat[l,0,V, PV.UO, UL.PHIU. PHIT, TW] -IntTlhatROl [0,V, PV. U0.UL. PHIU, PHIT, TW) ; 

DeltaTl [ 0, t.rV.PV. UO.UL, PHIU, PHIT, 0 ] =Re [ Del taTlhat [0, V, PV . UO , UL.PHIU , PHIT , 0 ] Exp [ I 2Pi t])//N; 

DeltaTl[0,t_, V.PV.UO.UL, PHIU. PHIT, TW]=Re[DeltaTihat[0, V.PV.UO.UL, PHIU. PHIT, TW] Exp [ I 2Pi t])//N; 
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Ti [ r„, Z_, t_, V, PV, UO , UL, PHIU , PHIT , 0 ] >Re [Tlhat [r, z, V. EV,U0 , VL, PHIU, PHIT, 0 ] Exp(I2Pi t]]//N; 

T1 ( r_, z_, t_, V, PV, UO, UL, PHIU, PHIT.TW] =Re (Tlhat (r, I , V, PV, UO, UL, PHIU , PHIT , TW] Exp(I 2Pi t]]//N; 


{* rhfji -j 

rholReHold (r_, z_, t_, sigmav_, sigmaPV_, Uo_, Ul_,phiU_,phiT_,Tw_) * 

(plReHold ( z , t , sigraaV, sigraaPV, Uo.Ul.phiU, phiT, Tw]-TlReHold[r, z, t, sigraaV, sigmaPV, Uo, Ul ,phiU, phiT, Tw) ) ; 
rholReIr_. z_, t_, sigmav_, sigmaPV., Uo_. Ul_, phiU_,phiT_, Tw_) : = 

rholReHold I r , z, t , sigmaV, sigmaPV, Uo, Ul , phiu, phiT, Tw] //ReleaseHoldZ/ReleaseHold/ /N; 
rholRe [r_, z_, c_. V, PV, UO.UL, PHIU, PHIT, TW] *rholRe (r, z, t,V, PV, UO.UL, PHIU, PHIT, TW) ; 
rholRe [r_, Z_, t_.V, PV.U0,UL, PHIU, PHIT, 0 ] =rhoIRe [r, z, C, V, PV,U0,UL, PHIU, PHIT, 0] ; 


{* thecal ' ) 

thetal»ComplexExpand[Tv*ExptI 2Pi phiT] ExptI 2Pi t] (ExptI si y]-Exp[I si] I Sintsi y] /Cos [si ] > ] ; 
thetalRe[y_, t_, fo_,phiT_, Tw_]*N{ thetal -I Coefficient ( thetal , I] ] ; 
thetalR*(y_, t_, fo_, PHIT, Tw] *t.hetalRe[y, t, fo, phit.tw] ; 
rhetalRe [y_, t_, f o_, PHIT, 0 ] =th«talRe[y, t, fo, PHIT, 0] ; 


u0Assign=(kseRe0rzV->HoldForm[ks«ReHold[0,r, z, sigmav] ] , 
kseImOrzV->HoldFonn( kselmHold [0, r, z, sigraaV) 1 , 
kseRe00zV->HoldForm[ kseReHold[0 , 0 , z , sigmaV! 1 , 
kseIm00zV->HoldForm [ kselmHold ( 0 , 0 , z , sigmaV] ] ) ; 
uOReHold (r_. z_, t_, sigraav_, uo_, Ul_, phiU_) *=uOReTemplate/ .uOAssign; 

uCRe(r_, z_, c_, sigma v_, Uo_, Ul_, phiU_] ; *uOReHoldtr , z , t, sigmav, Uo.Ul.phiU] //ReleaseHold//ReleaseHold//N; 
uORe (r_, z_, t_, V. UO , UL. PHIU] =uORe[ r, z , t , V, UO .UL, PHIU] ; 

uCtuitHold lr_, z_, sigmaV_,Uo_,Ul_, phiU_] =uOhatTemplate/ .uO Assign; 

uChac(r_, z_, sigraav_,Uo_,Ul_,phiU.J :au3hatHold[r, z, sigmav, Uo, Ul , phiu] //Releas«Hold//ReleaseHold//N; 
uChat(r_, z_,V,Uo_,Ul_,phiU_) =u0hat [r, z, V, Uo, Ul.phiU] / /ComplexExpand; 

IntuOhatROl (z_, V,Uo_, Ul_,phiU_| = 2 Integrate^ uOhat I r, z , v, Uo.UI , phiU] . {r, 0, 1 H //ComplexExpand; 

IntuOhatR ( z_. V, Uo_, Ul_, phi(J_) =2 Integrate [ r uOhat [r , z , V, Uo , Ul , phiu] , r ] / /ComplexExpand ; 

fC(z_, V, Uo_, Ul_, phiU_] =Dp2hacZ [z , V, Uo, Ul.phiU] / (I rhoOIz] IntuOhatROl [z, V, Uo, Ul, phiU] ) / /ComplexExpand/ /N; 
uChut [r_, z_,V, UO.UL, PHIU] *u0hat [r, z, V, UO.UL.PHIU] //ComplexExpand; 

IntuOhatROl (z_,v, UO.UL, PHIU) *2 Integrator uOhat [r, z ,v, UO , UL, phiu] . {r, 0, 1] ] //ComplexExpand; 

IntuOhatR tr_. z_.V, UO.UL.PHIU] *2 Integrator uOhat (r.z.V, UO.UL. PHIU] , r] / /ComplexExpand: 
fC ( z_, V] *Pp2hatZ [z , V, UO.UL, PHIU] /(I rho0(z{ IntuOhatROl [ z, V, U0, UL, PHIU]) / /Sinqplify; 

localWallShearStress(z_,t_,V,UQ,UL,PHlU]=Expand|2 Pi D(u0Re[r, z, t,V,U0 , UL, PHIU) , r]/.r-»l] ; 

<*2Pi is for integration around circumference*) 

localWallShearStressSguared [ z_, t_, V,U0 „UL, PHIU] *P©wer [localWallShearStress [z, t , V, U0, UL. PHIU] . 2] / /Expand; 
localwallShearStressRMS [ z_, V, U0 , UL, PHIU] *Sqrt [Integrate] local wallShearStressSquared [ z, t,v, UO.UL, PHIU] . (t.O.l) ]] ; 

cocalDragRMS iv, UO.UL, PHlU]»lntegrate[localwallShearStressRMS(z, v, UO.UL, PHIU) , {z,0,l)]//N; 
total UragRMSStar«totalDragRH3 (V, UO.UL.PHIU] 'dragOStar; 

totalDragRHS [t. V, U0,UL, PHIU ) “Integrate I localWallShearStress [ z , t , V,U0, UL, PHIU] , {z, 0, 1}) //N; 


vOAssign»{raRellzV->Hold[mReHold(l,l,z, sigraaV] ) , mImllzV->Hold{mlmHold [1, 1, z, sigmav] ] , 

kseRe00zV->Hold(kseReHold[ 0 , 0 , z, sigmav] ] , kselm00zV->Hold{ kselmHold [0, 0, z, sigmav] } , 
mRatioRe2rPV21PVz->Hold[mRatioReHold[ (2 , r, sigmaPV] , {2,1, sigmaPV) , z ] ] , mRatioIm2rPV21PVz-> 
Hold [mRatiolmHoldl {2,r. sigmaPV}, {2 , 1 , sigmaPV} . z ] ] , 
mRatioRelrVHVz->Hold[mRatioReHold [ (l.r, sigraaV ) , {1, 1, sigmav ) , z ] ] „mRatiolinlrVliv 2 -> 
Hold! mRat iolmHoldt (1 , r, sigmav }, {1, 1, sigraaV } , z ]] , 
raRe31zPV->Hold IraReHoldl 3. l.z, sigmaPV) ] ,mim31zPV->Hold[mImHold(3, 1, z, sigmaPV] I , 
mRatioRe3rPV31PVz->Hold [mRatioReHoldl {3, r, sigmaPV] , {3, 1, sigmaPV] , z] ) ,mRatioIm3rPV31PVz-» 
Hold [mRat iolmHold [ {3 , r, sigmaPV} , {3,1, sigmaPV} , z ] ] , 
mRacioRe2rPV21PVz->Hold [mRatioReHoldl {2 , r. sigmaPV} ,{2,1, sigmaPV} , z ] ] ,mRatiolm2rPV21PVz-> 
Hold (mRatiolmHoldl {2, r, sigmaPV} , (2, 1, sigmaPV} , z ) ] ) ; 
v0ReHold{r_, z_, t_, sigmaV_, sigmaPV_,Uo_,Ul_,phiU_,phiT_,Tw_]= vOReTesnplate/ . vOAssign; 
vOP.e (r_, z_, t_,sigmaV_, sigmaPV_,Uo_,Ul_, phiU_, phiT_, Tw_] : » 

vOReHoldlr, z, t, sigmav, sigmaPV,Uo,Ul,phiU,phiT,Tw)//ReleaseHold//ReleaseHold//N; 
vCSOr_,z_.t_,V.PV, U0.UL, PHIU, PHIT, 0 ] =vORe(r, z, t, V, PV, U0 , UL, PHIU, PHIT, 0] ; 
vC?Or_,Z_, t_,V,PV, UO.UL, PHIU, PHIT.TW] »vORe[ r , z , t , V, PV, UO , UL , PHIU . PHIT.TW] ; 


■ * df •} 

d0Assign=(aD0Re->Holdrorm[kseReHoldt0,r, z, sigma] ] . 
aDO Im->HoldForm[ kselmHold ( 0, r, z , sigma ] ] , 
bDORe->HoldForm( kseReHold [0, 0, z, sigma) } , 
bD0lm->HoldForm( kselmHold (0, 0, z, sigma] } ); 
dQReHoldIr_, z_. t_, sigraa^, do_, dl_,phiU_] =particleTraceReTenplate/ .dOAssign; 

dCRe [r_. z_, t_, sigmaV_, do_, dl_, phiU_] : *d0ReHold[ r , z, t, sigmav, do, dl , phiu ] //ReleaseHold//ReleaaeHold//N; 
dCFe[r_, z_, t_, V, d( 0] , d[l ] , PHIU] »d0Re [r, z,t,V,d(0],d(l] .PHIU] ; 


; * Save tc, u notvfcw.oi. 1 1 i*.> , thetal , p 1 , rhol , Tl , uO , vO * i 
Save [fileNameHXfr , thetal ,pl , rhol . Tl , uG, v0] 


t* point t*sat ■: 

(* {{eps, Va, Pr, UL, PHIU, m, appPRatio), {Fo, (PHIT, TW)). Date} *) 

(* { {pi [0 ; t=G .1,0.2,0.31), pl[TW at t*,2], pi sDynAmp [ 0 , 0 ) , v0[0,.8,.2], u0[0,.8,.2], {T {0 , 0 , . 1 ] , T [0 , 0 . . 2 ] ,T{ 0 , 0, . 3 1] ) M 
If [kindSystem==OPT, Print [ f lleHameOPTHXfr] , , Print [ f ileNameBPTHXf r ] J ; 

Print] { {plRe [ 0 , ,1,V, PV, UO.UL, PHIU, PHIT, 0 ) ,plRe[ 0, .2,V, PV, U0, UL, PHIU , PHIT, 0] ,plRe[0, . 3 , V. PV, U0 ,UL. PHIU, PHIT, 0] } , 
plRe [ 0 , -2,V,PV, U0.UL, PHIU, PHIT.TW] , N ( pis tonDynArapInch ( 0,0) /LInch ] , 
vORel .8,0, 0,V, PV, UO.UL, PHIU, PHIT, 0] ,u0Re[ . 8 , 0 , 0 , V, PV, U0, UL, PHIU] , 

(TlRe[0, 0, .1, V, PV, UO.UL, PHIU, PHIT, 0] ,TlRe[0, 0, . 2 , V, PV, UO, UL, PHIU, PHIT, 0) , 

TIRelO, 0, .3, V. PV, UO.UL.PHIU, PHIT.0] )}] 


-6 

( { {BPT, 0.002, 1., O.T03. 0.70266, 0., n/aPHIU, 3.789 10 . 

{10.001, {0.1022, 0.000203363], 7.02719), {0.00476915 Amp 
{BPTol., 2, 21, 18}} 


-9 

4.31 10 ), {1.004, 1.007, 1.00669)}, 

dyne, 0.00338034 <tube*-l) dyne, 0.0197349 W) , 
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{{0.317212. 0 . 485368, 0.46813), 0.405313, 0.002, 0.0722032, u0Re[0.8, 0, 0, 0.56419 Sqrt[Pi), 

0.472932 Sqrt(Pi). 1.. 0., -0.31. 

(0.02979B4, 0.0133024, -0.00827462}) 

UCC OPT 0 698 6 016 10E-7, 0.703, 0.66, -0.1. 0.003208, 1.427, 1.808). {1.7559 10E6, {-0.125, 0.00407989)}. (1994, 8, 24. 17, 7. 5)) 

{{2.97577] 2.68448, 1.36781), 2.68702, 0.111111, 2.76102, 0.36, {1.25176 10E-7, -3.63274 10E-7, -7.12965 10E-7)) 

{* phasors *) 







-6 

-9 

{{{OPT. 0. 

.002, 100 

., 0.703, 

70.266. 1.. 

-0.1, 3.789 

10 , 4.31 

10 ), {1.002, 1.004, 1.00413}). {100. 

{0.00476915 Amp dyne, 0.199157 (tube* 

-1) dyne, 1. 

97349 W). {OPTolOO . , 3, 15, 19)) 

Phasors : 

Amp 

PHI 

TWAmp 

PHITW 

Re+la 

ReTW* InrrW 

UO 

1. 

0 





uO { z= . 5) 

0.951 

-0.05 





u0(z».7) 

0.959 

-0.0706 





uO < z* . 85 ) 

0.975 

-0.0856 





UL 

1. 

-0.1 





pi 

0.805 

-0.0116 

0.883 

-0.026 



TlRe(0) 

0.318 

-0.0137 

0.353 

-0.0264 



TIRe (1 ) 

0. 


0.32 

-0.0392 



Tlhat { 0, z ) 0 . 318 

-0.0137 

0.353 

-0.0264 



Tlhat < 1 . x ) 0 . 

0 

0.32 

-0.0392 


«■ 0.03006 I 0.339 - 0.05502 I 

Tlbulk 

0.272 

0.0176 

0.343 

-0.0256 

0.2706 

DTI 

0.272 

-0.482 

0.0368 

-0.393 

-0.271 - 

0.0301 I -0.0288 - 0.0229 I 

uOpl ( z«Q) 

0.403 

-0.0058 

0.401 

-0.013 



vO ( r= . 8 ) 

0.0743 

-0.045 

0.0504 

-0.856 



al Irsl > 

2.59 

-0.879 

0.35 

-0.79 


- 1.78154 I 0.086417 ♦ 0.339135 I 

qlhat (1 , z) 2 . 59 

0.121 

0.35 

0.21 

1.87988 

NuCSimnle 9.51 

0.603 

9.51 

0.603 

-7.58476 - 

5.74094 I -7.58476 - 5.74094 I 

NuC 

9.51 

-0.397 

9.51 

-0.397 

-7,585 - 

5.741 I -7.505 - 5.741 I 

fC<0) 

1.15 

0.476 



-1.138 * 

0.1741 I 

fC (z) 

1.15 

0.476 



-1.138 ♦ 

0.1741 I 


{-0.03918, 0.319915). 7026.6), 





U13T1 

twoTimesuOTlAvgTairplate - uOhatTemplate * TlhatCCTanplate //ComplexExpand. 

C woT imesuOT 1R eAvgrTemp la ce * tvoTimesuOTlAvgTenplate -I Coefficient [ twoTimesuOTlAvgTemplate, I) ; 
twoTimesuOTIReAvgFluxHold [r_, z_, sigmav_, sigmaPV_, Uo_, Ul_, phiU_. phiT_, Tw_) = 
t woT itaesuOTl ReAvgTemplate / .Union [uOAssign.Tl Assign 1 ; 


uOTIReAvgFlux Ir , z_, sigmaV_, sigmaFV_, Uo_ , Ul_,phiU_,ph.iT_,Tw_] : = 1/2 * 

twoTimesuOTIReAvgFluxHold [ r , z.sigmaV. sigmaPV, Uo. U1 , phiU, phiT, Tw] //ReleaseHold//ReleaseHold//ReleaseHold//N; 


uOTIReAvgFlux [r_. z_, V, PV, U0 , UL , PHIU , PHIT , 0 ) 
uOTlEpsReAvgFlux [r_, z_, V, PV,U0,UL, PHIU, PHIT, 


=uOT!ReAvgFlux l r . z , V , PV , UO , UL, PHIU, PHIT, 0 1 / /Expand; 

0) *eps u0TlReAvgFlux(r.z,V.PV,U0,UL. PHIU, PHIT. 0) //Expand; 


uOTIReAvgFlux [r ,Z ,V, PV,U0 ,UL, PHIU, PHIT, TW] =uOTlReAvgFlux( r . z,V. PV, U0 ,UL, PHIU, PHIT, TW) / /Expand; 
uOTlEpsReAvgFlux (r_, z_, V, PV, U0 , UL, PHIU , PHIT , TW! *eps uOTIReAvgFlux (r, z , V, PV, UO, UL . PHIU, PHIT, TW] //Expand; 


AxialHFlowNoEps [z_, 0] =2 Integrated uOTIReAvgFlux! r, z . v, PV, UO, UL, PHIU, PHIT, 0 ] , {r.0,1}]; 
AxialHFlowStarNoEps [z_. 0 ] *hOscFlowOStar 'Axial HFlovNoEps [z. 0] ; 
AxialHFlowStarNormalizedNoEps [ z_. 0 ) = AxialHFlowStarNoEps [ z , 0 ) /xSect Areas tar ; 


AxialHFlowNo5ps{z_.TO)*2 Integrated uOTIReAvgFlux [r. z,V, PV.U0.UL, PHIU, PHIT, TW] ,{r,0,l)); 
AxialHFlowStarNoEps d_. TW] *hOscFlowOStar*AxialHFlowNoEps { z , TV/] ; 
AxialHFlowStarNormalizedNoEps [ z_, tv; ] = AxialHFlowStarNoEps ( z , TW] / xSectAreaStar ; 


AxialHFlow [ z_, 01=2 Integrate [r uQTlEpsReAvgFluxd, z . V, PV, U0, UL, PHIU. PHIT, 0] , (r.O.l) ) ; 
Axial HFlowStar [z_. 0 ]*hOscFlowOStar*AxialHFlowd , C] ; 

AxialHFlowStarNormalized{z_, C] *AxialHFlovStar[z, Cj /xSectAreaStar; 

AxialKFlow [z_, TW) *2 Integrate tr uOTlEpsReAvgFlux (r, z, V, PV.U0 ,UL, PHIU, PHIT, TW] ,{r,0,l)]; 

AxialHFlowStartz_,TW]*hOscFlowOStar*AxialHFlow[z,TW ] ; 

AxialHFlowStarNormalized [ z_,TW)=AxialHF lows tar [ z, TW} /xSectAreaStar; 


{* uOTl at r=0 *) 

AxialHFlowlD [ z_, 0 ] =2 Integrated u0TlEpsReAvgFlux{0, z , V, PV, U0.UL. PHIU. PHIT, 0 ] , {r.0,1}] : 
AxialHFlowlDStar [ z_. 0] *hOscPlowOStar* AxialHFlowlD ( z, 0] : 

Axial HFlowlDStarNorraali zed [ z_, 0] =AxialHFlowlDStar [ z , 0 ) /xSectAreaStar , 

AxialHFlowlD l z_ , TW] =2 Integrate [r uOTlEpsReAvgFlux [ 0 , z , V , PV . U0 , UL, PHIU , PHIT , TW ] , { r , 0 . 1 } j ; 
AxialHFlowlDStar[z_, TO) »hOscFlov{) Star* AxialHFlowlD! z ,TW) ; 

AxialHFlowlDStarNormalized { z_, TNI =AxialHFlowlDStar { z , TW] /xSectAreaStar; 


■: * uCp.ii At r e<T uiTi 0! * ; 

twoTimesuOplAvgTein>late = uOhatTemplate * plhatCCTeniplace / /ComplexExpand 

twoTimesuOplReAvgTeaplate = twoTiaesuOplAvgTemplate -I Coefficient [ twoTimesuOplAvgTemplate. I] ; 
cwoTioesuOplReAvgFluxHold I r_, z_, sigaaV_ , sigmaW_, Uo_, Ul_, phiU_. phiT_, Tw_] = 
cwoTimesuOplReAvgTetBplate/ - Union [ uOAssign, plAssign 1 ; 


u0plReAvgFlux{0, z_, sigma V_, sigmaPV_, Uo_,Ul_,phiU_, phiT_, Tw_] : = 1/2 
twoTimesuOplReAvgFluxHoldt 0, z, sigma v , sigmaPV , uo, U1 , phiU, phiT.Tw] 


/ /ReleaseHold//ReleaseHold//ReleaseHold//N; 


uOplEpsReAvgFluxt 0 ,z_,V,PV,U0,UL, PHIU, PHIT , 0 ) =eps 
uOplEpsReAvgFlux ( 0 , z_, v, PV , U0 , UL, PHIU , PHIT, TW] =eps 


uOplReAvgFlux ( 0, 2 , V, PV, U0 , UL, PHIU, PHIT, 0] //Expand; 

uOplReAvgFlux { 0 , z , V, PV , U0 , UL , PHIU , PHIT , TW ]/ /Expand; 


AxialuQplFlow[z_, 01=2 Integrated uOplEpsReAvgFlux [0 , z , V, PV, UO, UL, PHIU, PHIT, 0] , {r,0,l/J : 
AxialuOplFlowStar [z_, 0]=hOscFlow0Star*Axialu0plFlow[z,CJ; 

AxialuOplFlowStarNortnali zed [z_, 0) =Axialu0plFlowStar[z,0] / xSectAreaStar; 

AxialuOplFlow[z_, TW] *2 Integrated uOplEpsReAvgFlux [ 0, z, V, PV, U0, UL, PHIU. PHIT, TV,'] , {r, 0, 1) ] ; 
AxialuOplFlowStar 1 z_, TW) =hOsc FlowO Star* Axial u Opl F 1 ow (z , TO} ; 

AxialuOplFlowStarNormalized [ z_. TW] .AxialuOplFlowStar t z, TO] /XSectAreaStar ; 


1* uCpiMaxKorkABipiat, r=0. t~v’ ' ‘ 

HaxWorkAmpStar | 0, 0 ] =hOscFlowOStar*MaxWor)cAnip ; 

MaxW or kAmp Star Normal ized [ 0 , 0 ] =MaxWorkA®pStar [0,0] /xSectAreaStar ; 
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MaxWorkAmpStar f 1 , 0 ) «hOa cFl owC S tar *KaxWor kAmp ; 

MaxWorkAmpStarNormalizedU, 0] *MaxWorkArapStar{l, 01 ZxSectAreaStar; 


MaxWorkAmpStar 1 0 . TV/] =hOscFlowOStar*MaxWorkAmpTW; 

MaxWorkAmpStarNorraali ted 1 0 , TW] «MaxWorkAmpStar (0,TW] ZxSectAreaStar; 
MaxWorkAmpStar 1 1 , TW] *hOscFlowOStar*MaxWorkAmpTW; 

MaxWorkAmpStarNormalized [ 1 . TW] -MaxWorkAiapStar ( 1 , rw ) ZxSectAreaStar; 


(* u(ipiVolworklntoTul?w:Tv] Microscopic Volume lategrit «sd rv-Flowworfc tor UCir-i?)-) 

twoTimesuOplVolAvgTenplate = uOhatTemplate * plVolhatCCTanplate //ComplexExpand; 

twoTimesuOplVolReAvgTeoplate * twoTimesuOplVolAvgTemplate -I Coefficient [twoTimesuOplVolAvgr emplace, I] ; 

t woTimes uOpl Vo 1 ReAvgF 1 uxHo 1 d { r_ , z_ , s i gmaV__ , a i gmaPV_ . U o_ , Ul_ , phiu ph i T_ , Tw_ ] * 

twoTimesuOplVolReAvgTemplate/ . Union [uOAssign, pi Vol Assign] ; 

uOplVolRaAvgPlux I r z_, sigmaV., sigroaPV_, Uo_, Ul_, phiU_, phiT_, Tw_] : * 1/2 * 

twoTimesuOplVolReAvgFluxHold[r , z, sigmaV, sigmaPV, Uo, Ul , phiU, phiT, Tw] / /ReleaseHold/ZReleaseHold/ /ReieaseHold/ /N; 

uOplVoiEp*ReAvgFlux[r_, z_, V,PV,U0,UL, PHIU, PHIT, 0] »eps uOp lVolReAvgF lux [ r, z, V, PV,U0,UL, PHIU, PHIT, 0] //Expand; 
uOpl Vol Bps ReAvg Flux [ r_. z_, V, PV, U0,UL, PHIU, PHIT, TW] »eps uOplVolReAvgFlux[r,z,V,PV,UO,UL, PHIU, PHIT, TW] //Expand: 

uOplVolFlowI z_, 0 ] *2 integrate [r uOp!VolEp»ReAvgFlux[r, z. v, PV, UO, UL, PHIU, PHIT, 0 ] , (r, 0, 1}] ; 
uOplVol Flows tar [ z_, 0 ] =hOscFlovOStar*uOpl Vol Plow lr,G); 
uOplVolFlowStarNoraaiized(z_, 0]*u0plvolFlowStarIz, 0] ZxSectAreaStar ,* 

u0plVolFlow{z_,TW]*2 Integrate [r uOplVolEpsReAvgFlux[r, z, V,PV,U0,UL, PHIU, PHIT, TW] , {r,0,l}] ; 

uOplVolFlowStar (z_,TC! =hOscFlowOStar*uOplvolFlow[ z,TW ] ; 

uOplVol FI owStarNormali zed [z_, TW] *uOplVolFlowStar [ z, TW] ZxSectAreaStar; 

(• 

uOplVolWorklntoTubeStarlnMinusOutAvg [ z_, 0] =u0plVolFlowStar[z, 0]-u0plVolFlowStmr[z,0]//N; 
uOplVolWorklntoTubeStarlnMinusOutAvg (z_,TW) *u0plVolFlowStar [z , TW] -uOplVolFlowStar [z.TWl //N; 

uOplVolWorklntoTubeStarNormalizedlnMinusOutAvg [z_, 0 ] sniQplvolFlow5tarNormalized[z,0)-uQplVolFlowStarNormalized[ z,C ] Z/N; 
uOplVolWorkIntoTubeStarNormali 2 edInMinusOutAvg [z_, TW]a (uOplVolFlowStar [z,TW] -uOplVolFlowStar I * r TW] > ZxSectAreaStar//N; 

*) 

> * uOrliol « at r yquii < '•J 

twoTimesuOrholAvgTenplate = uOhatTemplate * rho 1 ha tCCT emplace //ComplexExpand; 

twoTimeauOrholReAvgTemplate = twoTimesuOrholAvgTemplate -I Coefficient [ twoTimesuOrholAvgTemplate, I ] ; 
twoTiaesuOrholReAvgFluxHoldt r., z_, sigma V_. sigmaPV_, Uo_.Ul_,phiu_.phiT_, Tw_] » 
twoTimesuOrholReAvgTemplace/ . Union [ uOAssign , plAssign, TIAssign ] ; 

uCrholReAvgFlux 1 0 , z_,sigmaV_, sigaaPV_, Uo_,Ul_, phiU_,phiT_, Tw_] :* 1/2 * 

twoTimesuOrholReAvgFluxHold [ 0, z , sigmaV, sigmaPV, Uo. Ul.phiU, phiT, Tw) //ReieaseHold/ /ReieaseHold/ /ReieaseHold/ /N; 

uOrholEpsReAvgFlux ( 0 , z_, V, PV, U0, UL , PHIU, PHIT, 0 ) *eps uOrholReAvgFluxt 0, z ,V, PV, U0, UL, PHIU, PHIT, 0] //Expand; 
uOrholBpsReAvgFlux [ 0 , z_, V, PV,U0. UL, PHIU, PHIT,TW]»eps uOrholReAvgFluxt 0, z,V, PV, U0 , UL, PHIU. PHIT, TW) / /Expand; 

AxialuOrholFlow I z_, C ] -2 Integrate [r uOrholEpsReAvgFlux {0, z, V, PV, U0 , UL, PHIU, PHIT.0], {r.0,1}] ; 

AxialuOrholFlowStarlz., G]=hOscFlowOStar*AxialuOrholFlow[z, 0] ; 

AxialuOrholFlowStarNormalizedl z_, 0 1 =Axialu0rhol Plows tar [z, 3] /xSect Areas tar; 

AxialuOrholFlow [ z_ , TW ] -2 Integrate [ r uOrholEpsReAvgFlux [ 0 . z , V, PV, U0 , UL, PHIU , PHIT, TW] , { r , 0 , 1 } ] ; 

AxialuGrholFlowStar [ z_, TV*] *hOscFlow0Star* AxialuOrholFlow [ z , TW] ; 

Axialu0rholFlowStarNormalized[2_, TW] »AxialuQrholFlowScar (z , TW] ZxSectAreaStar; 


i * vC'Tl “ ? 

twoTimesvQTlAvgTenplate ■ vOhatTemplate * TlhatCCTenpiate //ComplexExpand; 

twoTimesvOTlReAvgTenplate = twoTimesvOTlAvgTemplate - I Coefficient {twoTimesvOTlAvgTemplate, I] ; 
twoTimesvOTIReAvgFluxHold [ r_, z_, sigmaV_, sigmaPV_, Uo_, Ul_,phiU_, phiT_, Tw_] * 
twoTimeBvOTIReAvgTecDplate/ .Uni on [vOAssign, TIAssign) ; 

vOTIReAvgFlux [ r_. z_, sig»aV_, sigroaPV_,Uo_,Ul_,phiu_,phiT_,Tw_] :* 1/2 * 

twoTimesvOTIReAvgFluxHold [r , z , sigmaV, sigmaPV, Uo, U1 , phiu, phiT.Tw] / /ReleaseHold/ZReleaseHold/ /ReieaseHold/ /N 
vOTIReAvgFlux [ r_, x_,V, PV, U0,UL, PHIU, PHIT, 0] -vOTIReAvgFlux [ r, z,V, PV,U0,UL, PHIU, PHIT, 0 ] //Expand; 
vOTlReAvgFluxtr_. z_, V, PV, U0, UL, PHIU, PHIT, TW)« vOTIReAvgFlux ( r, Z,V, PV,U0,UL, PHIU, PHIT , TW) //Expand; 

Phatort 
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{{{OPT, 0.002, 100., 0.703. 70.266, 1., -0.1, 3.789 10 , 4.31 10 >, {1.002, 1.004, 1.00413)), {100., 

{-0.03918, 0.319915), 7026.6), 


{0.00476915 Amp dyne, 0.199157 {tube A -ll dyne. 1.97349 w). (OPT<>100., 3, IS. 19)} 




-Graphics- 

enthalpy Flow Plot* 

Enthalpy Flux Plot uOpl. uSplWL ar.c HFU'w *; 
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({(OPT, 0,002, 100., 0.703, 70.266, 1,. -0.1. 3,789 10 . 4.31 10 ), (1.002, 1.004, 1.00413)}, 

(lOo’, (-0.03918, 0.319915), 7026.6}, 


(0.00476915 Anp dyne, 0.199157 Itube^-l) dyne, 1.97349 W), (OPTolOO., 3, 15, 19)] 


c* 

- > 

H (Z=0 

Z=l] UP 

[z=0 Z=1 ) 

KF low Ray (iso) 

MaxworkAmp 

[z=0 3 

cTW* 

- > 

HTW [ z = 0 

z=l ] uPTW ( z*0 z=l) 

HFlowRay [adia ) 

MaxWorkAmpTW [ z=0 i 

c*/Href * 
c*/Href* 

(1/eps) -> 
(1/eps) -> 

0.137 0. 

0.145 0. 

113; 0.402 

143; 0.436 

O O 

jo £ 

0.118; 0.403 

0.196; 0.401 


c* 

(W/eps) -> 

0.269566 

0.222384; 

0.793 0.675; 

0.232; 

0.795; 

0.795 

CTW* 

(w/eps) -> 

0.285877 

0.282791; 

0.86 0.779; 

0.387; 

0.791; 

0.791 

C* /AX* 

(w/cm2eps) -> 

0.126711 

0.106182; 

0.378 0.322; 

0.111; 

0.379; 

0.379 

CTW*/AX* 

(w/cm2eps) -> 

0.136499 

0.135025; 

0.411 0.372; 

0.185; 

0.378; 

0.378 

c* /up* 

(w/weps) -> 

0.34 0.281; 1.000 

0.852; 

0.293; 1.; 

1. 


cTW*/up* 

(w/weps) -> 

0.361 0. 

357; 1.09 

0.983; 

0.488; 0.999; 

0.999 


c* /max 

* <w/weps> -> 

0.339 0. 

28; 0.997 

0.85; 

0.292; 1.000; 

1. 


ctw* / max 

• <w/»eps) -> 

0.36 0.356; 1.06 

0.98; 0 

.487; 0.996; 

0.996 



Href* = hOscFlowOStar =1.97349 W 

CrossS actional Area =2.09436 cm ‘2 , _ „ ^ . 

jalu® is iso, red is thin wall, green is Radebaugh, purple is local area integrated pluO flow-work 

AxialHFlow (1/eps) vs z 

AxialHFlow( 1/eps) and Ray AdiaCalc (1/eps ) vs z 
Axi a 1 HF lows tar < w/eps) vs z 
AxialHFlowStarNormalized (W/cm' s 2eps) vs s 


HFlow/uOplFlowwork(w/w) vs z 
uOTHl/eps) vs t for isothermal wall 
uOTl (1/eps) vs t for thin-vall 
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Plot! ( (deltaTStar) / (LStar) )* IcondFitStar [pressureRefStarMPa/MPa, <z* , terapReiGasStar*SQX) /K) (W/ <M K) ) ) * 
<M/ (100 cm) ) ( *xSect Areas tar* ) cm*2 /W, £x. 0, 1) , AxesLabel->{ 'z‘ , *q* (W/cnr2) Ml; 

q* (W/cm A 2) 



• DIMENSIONAL VARIABLES SPECIFIED: 

{{OPT, eps, Va. Pr, VaPr, UL, PHIU, M, LAMBDA, IsoPressRatio, AdiPressRatio , CLAdiPRatio} , {Fo, {PKIT, TW>, VaPrFo) , 

{totalDragAmpO, totalDragRMS/tube, HOscFlowOStar) . date) scalingNantes 

-6 -9 

{{{OPT, 0.002, 100., 0.703, 70.266, 1., -0.1. 3.789 10 , 4.31 1C }, {1.002, 1.004, 1.00413)), {100., {-0-03918, 0.319915), 7026.6), 

{0.00476915 Aa*> dyne, 0.199157 <tube'--l> dyne, 1.97349 w>, (OPTolOO., 3, 15. 19}). scaling 

‘rvr =Q C 321453 in; L =3.93701 in; tubeThickness =0.00193031 in; pistonDynAapInchAtO =0.00787402 in; pistonDynAmpInchAtL =0.00787402 in 


- cgs: 3 ? 

rv *0 81649 cm ■ L *10 cm; tubeThickness =0.004903 cm; volOfTube =20.9436 cm ; CrossSectArea=2 . 09436 cm 

3 

pistonDyntapAtO *0.02 cm; pistonDynAmpAtL =0.02 cm; freq = 

sec 

0.376991 cm 0.376991 cm 0. cm 0.00160224 g 

pistonSpeedUO ; pxatonSpeedUL - -; ApistonSpeed ; pRef =0.999722 MPa; tempRef *300 K; rhoRef 

sec sec sec J 


0.045313 cm 7.82 g 0.46 sec W 0.163 w 0.045313 cm 

alphaTube ; rhoOTube ; CpOTube = ; kTube ; alpha Tube 

sec 3 5 K cm K sec 

cm 

2 2 
0.178836 cm 0.00160224 g 5.2 sec W 0.00149 W 99488.6 an 0.125662 cm 0.00020134 g 

alphaOGas ; rhoOCas * ; CpOGas * ; kGas = ; a0 = ; nu = ; mu = 


0.942286 W 

hOscFluxO = ; HOseFiowO =1.97349 W; jOscFluxO * 


9 K 

0.00060403 g 


cm K sec 

0.00126506 g 


sec 

0.547465 W 


- ; jOscFlOvO 


qGasRadialO = - 


- ; HF low Ray * 


0.00040268 g Pi Pi 

HFlovRayStarl , 300 K, 0.0203251 atm. 9.866 atm. — ] 

sec 6 

totalDragAmplO =0.00476915 dyne; total Drag RMS /tube =0.199157 dyne 
• PARAMETER LIST (for use in exporting to plot routines) 

ParameterList={V,PV, KGAS, KTUBE, U0.UL.M, eps, GAMMA, PHIU. F , TERM, N 1TW, 5 ) ,N [PHIT, 5] ) 

Parameter List= (5. 6419 Sqrt[Pi), 4.72932 S<jrt[Pi], 0.0091411, I., 1., 1., 1.20617 10 Pi, 0.002. -0.1, 0.0564191 Sqrt[Pi], 

16, 0.31991, -0.03918} 


- SOLUTION OF TW AT PKIT FOR CONTINUITY OF HEAT FLUX AT GAS /TUBE BOUNDARY 
TW=Q. 319915 at PHIT=-0. 0391796 

• RANDOM TIME CHECK, ALL VALUES FOR TW SHOULD BE THE SAKE 
t Random= 0 , 657914 

PHIT=-0. 0391796 

Twall={Twall [1 . , 0, 0., 10., 8.3825, 1., 1., -0.1. -0.0391796, 0.0091411, 0.1, 1.3, 

Twall [1 . , 0, 0.125, 10., 8.3825, 1., 1.. -0.1, -0.0391796, 0.0091411, 0.1, 1.1. 

Twall[l., 0, 0,25, 10., 8.382S, 1., 1.. -0.1, -0.0391796, 0.0091411, 0.1, l.J. 

Twalltl., 0, 0.5, 10., 8.3825, 1., 1., -0.1, -0.0391796, 0.0091411. 0.1, 1.], 

Twalltl., 0, 0.657914, 10., 8.3825, 1., 1.. -0.1. -0.0391796, 0.0091411. 0.1, 1.]) 

Bessel Fxn Accuracy* < (V) ;BesselJ; <ber*l bei) ; ModBesselJHold; Argument ->in£ ini ty approximation) 

Bessel Accuracy Hi = {{9.99999925). 149.847528, 149.847526, 149.847526, 148.537427} 

Bessel Accuracy Lo = {{0.999999925}, 1.01552483, 1.01552483. 1.01552483, 1.00306903} 

• PHASORS: 



Amp 

PHI 

TWAmp 

PHITW 

uo 

1- 

0 



UL 

1 . 

-0.1 



Pi 

0.805 

-0.0116 

0.803 

-0.026 

TUr=0) 

0.318 

-0.0137 

0.353 

-0.0264 

Tl(r=l) 

0 . 


0.32 

-0.0392 

vO (r=.8> 

0.0743 

-0.845 

0.0504 

-0,856 


• NON-DIMENSIONAL SCALING VARIABLES CALCULATED: 

Va=100.: Pr=0.703; Pr*Va=70 . 2663 ; S =500.; Fo=100,, EL=0. 00600497; M=3. 78929 10 ; ReO =4.89902 

p0=l; TO [ z ] =1 ; rho0[z]=l 

• NON-DIMENSIONAL VARIABLES USED IN COMPLEX SOLUTION; 
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-6 -9 

V*10 . ; P*0. 83825; PV»8.3825; eps=0.002; F=0.1; M*3. 78929 10 ; LAMBDA *4 . 30762 10 ; eps*Va=0.2 

5 

UO*l.; UL= 1 . ; PHIU*-0.1; TERM* 16 ; KGAS =0.0091411; KTUBE=1 . ; GAMMA*- ; d0=0.002; dL=0.002; PHIT*-0 . 0391796 ; TW*0. 319915 


ARCHIVE 

Enthalpy rlux yields 

-6 -9 

{{(OPT, 0.002, 100., 0.703, 70.266, 1., -0.1, 3.709 10 , 4.31 10 }. (1.002, 1.004, 1.00413}), (100., 

(-0.03918, 0.319915), 7026.6), 

(0.00476915 Afl£> dyne, 0.199157 (tube A -l) dyne, 1.97349 W>, {OPTolOQ., 3, 15, 19}} 


r-1 



r-0 



r*0 


- Graphic* - 

Enthalpy riu* Plot* 

isothermal and thin wall corapariaon at z*0, .5, 1 

-6 -9 

{{{OPT, 0.002, 100., 0.703, 70.266, 1.. -0.1, 3.789 10 , 4.31 10 }, {1.002, 1.004, 1.00413}), {100., 

{-0.03918, 0.319915), 7026.6), 

{0.00476915 Anp dyne, 0.199157 (tube*-!) dyne, 1.97349 W}. (OPTolOO., 3, 15. 19)} 





r; rvaaf; :ltt. jc wi): 

If [kindSy9tem==OPT.Print(£ileNameOPTHXfr] , , Print [ fileNameBPTHXfr) ] ; 

Plot 1 ( 51 ( 1 , 0. t, V.PV.UO.UL. PHIU, PHIT.Of.Ql El , 0 , t. V7PV, U0 , UL. PHIU , PHIT . TW] .Ti?.t(0, 0, t.V.PV.UO. UL. PHIU , PHIT, 0) , 
DeltaTl [0, t, V, PV.UO.UL, PHIU, PHIT, 0) , Del tall 1 0, t , V, PV, 1)0, UL, PHIU, PHIT, TW] ) , {t,0. 1), 
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PlotStyle->( { J , {Dashing [{0.03, 0.03})) , { Dashing [ {0 .005. 0. 02, 0 , 03, 0. 02} ] ,RGBColor[l, 0, 0) ) , { }, {RGBColorlO. 0, 1] 
Dashing! CO. 03, 0.03})) ) , PlotRange->All] ; 


If CkindSyst«a==OPT, Print { f ilaNameOPTHXfr 1 , , Print { f ileNamaBPTHXf r ] ] ; 

Plot ( {ql [1. 0. t.V.PV.UQ.UL.PHIU, PHIT, 0) , ql 1 1 . 0 , t , V, PV, UQ, UL, PHIU , PHIT, TW] , 

Del taTl{0,t.V,PV,U0,UIi, PHIU, PHIT, 0) .DeltaTl [0, t, V, PV,U0 , UL, PHIU, PHIT, TW) ) , { t, 0 , 1 ) . 

PlotStyle->{ { ) , {Dashing! {0. 03, 0.03})} , {RGBColorfO, 0, 1 )}, (RGBColor [0 , 0 , 1 ), Dashing ( {0 . 03 „ 0 . 03 } )} }, 

PlotRange->All] ; 

(* { {Thesis, OPT, eps, V, P, PV, UL, PHIU, M, IsoPressRatio, AdiVolPR, CLAdiPRatio) , {F, {PHIT, TW)}, 
{HOscFlowO). (date}) •) 

-6 -9 

{{(OPT, 0.002, 100., 0.703, 70.266, 1., -0.1, 3.789 10 , 4.31 10 }, {1.002, 1.004, 1.00413}), {100.. 

(-0.03918, 0.319915). 7026.6), 

{0.00476915 Am> dyne, 0.199157 (tube~-l) dyne, 1.97349 W), {OPTolOO., 3, 15, 19}} 

-6 -9 

{{{OPT, 0.002, 100., 0.703. 70.266, 1., -0.1. 3.789 10 , 4.31 10 }. {1.002, 1.004, 1.00413}}, (100., 

{-0.03918, 0.319915}, 7026.6), 

{0.00476915 Aap dyne, 0.199157 (tube^-l) dyne, 1.97349 W) , {OPTolOO., 3, 15, 19)) 



(• TW vs Fo •> 

If [JcindSystem»-OPT, Print tfileNameOPTHXfr) , , Print [ fileJJameBPTHXf r ] ] ; 

ArapPlocTw [ v, PV, U0 , 0. PHIU, f o ) =LogLogPlot [ Tw [ 0 , phiU , foj , {fo, .1. 150) , PlotRange->All 1 

-6 -9 

({{OPT, 0.002, 100., 0.703, 70.266, 1., -0.1. 3.789 10 , 4.31 10 ), {1.002. 1.004, 1.00413}). {100., 

(-0.03918, 0.319915), 7026.6), 

(0.00476915 Amp dyne, 0.199157 (tube A -l) dyne, 1.97349 W) , (OPTolOO., 3, 15, 19}} 



-Graphics - 
{ * PhiT vs Fo * ) 

ArgPlotTwtV, pv, U0, 0, PHIU, £o ) =LogLogPlot [ -phiT(0,phiU. fol , { fo, .1.150), PlotRange->All) 



-Graphics- 

{* Code for Graphics Plots •) 

If [kindSystera*«OPT, Print [ fileNameOPTKXf r) , , Print [ fileNameBPTHXfr ] ] ; 

-6 -9 

{{{OPT, 0.002, 100., 0.703. 70.266, 1., -0.1, 3.789 10 , 4.31 10 }. {1.002, 1.004, 1.00413)}, {100., (-0.03918, 0.319915). 7026. 6}. 

{0.00476915 Amp dyne, 0.1991S7 (tube*-l) dyne, 1.97349 W}. (OPTolOO., 3, 15, 19)} 

?PhasorPlot 
Global ‘ PhasorPlot 


PhasorPlotlAll. 31.830983B5134257*Pi, 1.. -0.1. 314.1578982435413/Pi] = 

Graphics [ ( Line ( { { 0 , 0}. {-7.584757533613621, -5.740944894744813))], 

(Dashing! (0.03. 0.03)], Line({{0, 0), {0.3165449091259993, -0 . 02735771620622396) }]) , 

(Dashing [ {0 . 005, 0.02, 0.03, 0.02}), Line[({0. 0), (1.879801736290323, 1.781540335669683}}]}, 

{Dashing [{0.01, 0.01}], RGBColortO, 1, 0], LinelUO, 0), U, 0})]}, 

{Dashing [{0.01, 0.01)}, RGBColorlO, 1. 0], LinetUO, 0), {0.809016994374948, -0.5877852522924733}}]), 

{Dashing! { ) ] , RGBColor[0, 1. 1], LinetUO. 0}, {0.803281420362929, -0.05861243832123366)}]), 

{Dashing! {0.02, 0.02}), RGBColor[0, 1, 1], Line({{0, 0), {0.871707058032187, -0.1436918561245787)}]), 

{Dashing! {0.03, 0.03}], RGBColorlO, 0, 1], Line[{{0, 0), {0.2706043229945105, 0.03006237550349716))]), 

{Dashing! {0.03, 0.03}], RGBColor ( 1 , 0, 1), LinetUO, 0), {-0.2706043229945105, -0.03006237550349716})]), 

{Dashing! {0.02, 0.02}], RGBColortO, 0, 1), LinetUO, 0), {0.3390299606637685, -0.05501704229984794))]), 

{Dashing I {0.03, 0.03}J, RGBColorU, 0. 0), Line[{{0, 0), {0.3484200046661029, -0.05826763675797807)}]), 

{ RGBColor {1. 0, 01, Line{{{0. 0), {-7 . 584757S3361361, -S . 740944894744814 }}]} , 

{Dashing! {0.005. 0.02. 0.03, 0.02)]. RGBColor[l, 0, 0], LinetUO, 0), {0.0864170124197421, 0.3391354590056961)}})}, 

{DisplayPunction -> (Display [SDisplay, #1] t, ), AspectRatio -> 1. PlotRange -> Automatic, AspectRatio -> GoldenRatio'' (-1) , 

DisplayFunction :> Identity, ColorOutput -> Automatic, Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, Axes Label -> None, 

Ticks -> Automatic, GridLines -> None, Prolog -> {}, Epilog -> {}, AxesStyle -> Automatic, Background -> Automatic, DefaultColor -> Automatic, 
DefaultFont :> SDefaultFont, RotateLabel -> True, Frame -> False, FraaeStyle -> Automatic, FrameTicks -> Automatic, FrameLabel -> None, 

PlotRegion -> Automatic}] 

PhasorPlot [NuC, 31 . 83098385134257-Pi, 1.. -0.1, 0] = 

Graphics ({LinetUO. 0}, {-7.584757533613621. -5.740944894744813)}], 

{Dashing! {0. 00S, 0.02, 0.03, 0.02}], LinetUO, 0}, {1.079881736290323, 1.781540335669683))]), 

{Dashing {{0. 01, 0-01)], RGBColor[0, 1, 0], LinetUO, 0}. (1, 0))]), 

(Dashing! {0.01, 0.01)], RGBColortO, 1, 0], LinetUO, 0}, (0.809016994374948, -0 . 5877852522924733 >} I } , 

(Dashing U0. 03, 0.03)], RGBColortO. 0, 1J, Line[U0, 0}, {0.2706043229945105, 0 . 030062375S0349716 } > ] } , 

{Dashing ({ 0.03. 0.03}], RGBColorU, 0, 1), LinetUO. 0), {-0.2706043229945105, -0.03006237550349716)}])), 

{DisplayFunction -> Identity, PlotRange -> Automatic, AspectRatio -> GoldenRatio' 1 (-1) , DisplayFunction :> Identity. ColorOutput -> Automatic, 

Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -» {}, Epilog -> {). 
AxesStyle -> Automatic, Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> SDefaultFont, RotateLabel -> True, Frame -> False, 
FrameStyle -> Automatic, FrameTicks -> Automatic, Fra m e Label -> None, PlotRegion -> Automatic}] 

PhaaorPlot [NuC, 31.83098385134257-Pi, 1., -0.1, 314.1578902435413/Pi) * 

GraphicsU {RGBColorU, 0, 0), Line[{{0, 0}, {-7.58475753361361, -5 . 740944894744814 }} 1 ) . 

{Dashing ({0.005, 0.02, 0.03, 0.02}], RGBColorU, C, 0], Line({{0, 0}. (0.0864170124197421. 0.3391354590856961})]}, 


(Dashing! {0.01, 

0.01)), 

RGBColorlO, 

1, 

0). 

Line! { (0, 

0). 

U. 0})]), 


{Dashing { {0. 01, 

0.01}]. 

RGBColortO, 

1, 

0). 

LinetUO, 

0), 

(0.809016994374948, -0. 

5877852522924733] )]}, 

(Dashing ({0.02, 

0.02}]. 

RGBColortO, 

0, 

1). 

Line [ { (0, 

0). 

(0.3390299606637605, -0 

.05501704229984794}}]). 

{ Dashing ( {0 . 03, 

0.03)]. 

RGBColor [1, 

0, 

11. 

Line! { {0, 

0}. 

(-0.02876004518396047, 

-0.02294412494308133}}]}} 


{ DisplayFunction -> Identity, PlotRange -> Automatic, AspectRatio -> GoldenRatio"' (-1) , DisplayFunction :> Identity, ColorOutput -> Automatic, 

Axes -> Automatic, AxesOrigin -> Automatic. PlotLabel -> None. AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> {}, Epilog -> {), 
AxesStyle -> Aut oma tic. Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> SDefaultFont, RotateLabel -> True, Frame -> False. 
FrameStyle -> Automatic, FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic}] 

PhasorPlot tPTU, 31 .83098385134257*Pi, 1.. -0.1, 314.1578982435413/Pi] = 

Graphics! {{Dashing! {0.01, 0.01}], RGBColorlO, 1, 0], Line({{0, 0], {1. 0}}]}. 

(Dashing [{0.01, 0.01)], RGBColorlO, 1, 0], Line[{{0, 0), {0.809016994374948, -0,5877852522924733}}]], 

(Dashing [ ( } ] . RGBColorlO, 1, 1), LinetUO, 0}, {0.803281420362929, -0.05861243832123366))]}, 

{Dashing U0. 02, 0.02}], RGBColorlO, 1. 1), Line[{{0, 0), {0.871707058032187, -0.1436918561245787)}]}. 

(Dashing [ (0. 03, 0.03)1, RGBColortO, 0, 1), Line({{0. 0), {C . 2706043229945105 , 0.03006237550349716}}]}, 

{Dashing [ {0. 02, 0.02}], RGBColortO, 0, 1], LinetUO, 0), {0.3390299606637685, -0.05501704229984794}}]}}, 

{DisplayFunction -> (Display [ SDisplay , *1] 4 ), AspectRatio -> 1, PlotRange -> ({-0.2, 1), (-1. 0.2}}, PlotRange -> Automatic, 

AspectRatio -> GoldenRatioU-1) , DisplayFunction :> identity. ColorOutput -> Automatic, Axes -> Automatic, AxesOrigin -> Automatic, 

PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> {}. Epilog -> {}, AxesStyle -> Automatic, 

Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> SDefaultFont, RotateLabel -> True, Frame -> False, FrameStyle -> Automatic, 
FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic)) 

?PhasorPlotBlack 
Global ' PhasorPlotBlack 


PhasorPlo tBlack (NuC , 31 . 83098385134257«Pi , 1., -0.1. 0] = 

Graphics [{LinetUO, 0 }. {- 7 . 584757533613621 . - 5 . 740944894744813 })], 

{Dashing [ {0 . 005, 0.02, 0.03, 0.02}], Line[{{0, 0}, (1.879801736290323, 1.781540335669683))]}, {Dashing [ (0 . 01 , 0.01)}. Line[{{0, 0}, {1. 0))]}, 
(Dashing U0. 01. 0.01)), LinetUO. 0), {0.809016994374948, -0 . S877852522924733 } ) ]} , 

{Dashing! (0.03, 0.03)], LinetUO, 0). {0.2706043229945105, 0.03006237550349716}})}, 

(Dashing! (0.03, 0.031), LinetUO, 0). {-0.2706043229945105, -0.03006237550349716))]}}, 

{DisplayFunction -> Identity, PlotRange -> Automatic, AspectRatio -> GoldenRatio"' {-!) , DisplayFunction :> Identity, ColorOutput -> Automatic, 

Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> {}, Epilog -> {}, 
AxesStyle -> Automatic, Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> SDefaultFont, RotateLabel -> True, Frame -> False, 
FrameStyle -> Aut oma tic, FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic}] 


PhasorPlotBlack (NuC, 31 . 830983B5l34257*Pi , 1., -0.1, 314 ,1578982435413/Pi] = 

Graphics [{ (Line ({{0. 0}. {-7.58475753361361, -5.740944894744814}}]}. 

(Dashing! (0.005. 0.02. 0.03. 0.02)], LinetUO, 0), {0.0864170124197421, 0. 33913S45908S6961) ) ] ) , {Dashing! {0. 01, 0.01}}, LinetUO, 0}, {1. 0})]) 
{Dashing! (0.01, 0.01}}, Line[{{0. 0), {0.809016994374948, -0.5877852522924733}}}}, 

{ Dashing [{ 0.02, 0.02)], LinetUO, 0), (0.3390299606637685, -0.05501704229984794)})}, 

{Dashing! {0.03, 0.03}], Line[({0, 0}, (-0.02876004518396047. -0.02294412494300133)}})}, 

(DisplayFunction -> Identity, PlotRange -> Automatic, AspectRatio -> GoldenRatio'' (-1) , DisplayFunction :> Identity, ColorOutput 
Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog 
AxesStyle -> Automatic, Background -> Automatic. DefaultColor -> Automatic, DefaultFont :> SDefaultFont, RotateLabel 
FrameStyle -> Automatic, FrameTicks -> Automatic. FrameLabel -> None, PlotRegion -> Automatic)] 


Automatic, 

■ {). Epilog -> 
> True, Frame -> False, 


PhasorPlotBlack [PTU, 31 . 83098385134257*Pi , 1., -0.1, 314.1570982435413/Pi] = 

Graphics [{{Dashing [{0.01, 0.01}), Line(({0, 0), {1, 0})]), (Dashing! {0.01, 0.01}), LinetUO, 0), {0.809016994374948. 
{Dashing ( { } ] , LinetUO, 01. (0.803281420362929, -0.05861243832123366}))), 

{Dashing! {0.02, 0.02)], LinetUO, 0>, {0.071707058032187. -0.1436918561245787)}]), 

{Dashing! (0.03. 0.03}], LinatUO. 0). {0.2706043229945105, 0.03006237550349716})]). 

(Dashing ((0.02, 0.02}}, LinetUO, 0), {0.3390299606637605, -0.05501704229984794)}])}, 

{DisplayFunction -> (Display I SDisplay , »1) & I. AspectRatio -> 1. PlotRange -> ({-0.2. 1), 

AspectRatio -> GoldenRatio A (-l) - DisplayFunction ;> Identity. ColorOutput -> Automatic, A 
PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> O 


-0.5877852522924733}}] }. 


{-1, 0.2}}, PlotRange -> Automatic, 
es -> Automatic, AxesOrigin -> Automatic, 
Epilog -> {). AxesStyle -> Automatic, 


Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> SDefaultFont, RotateLabel -> True, Frame -> False, FrameStyle -> Automatic, 
FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic)) 


AmpPlotTw {5. 641895413009938* Pi “(1/2) , 4.729318913240664*Pi'"(l/2) . 1., 0, -0.1, fo] = 
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Graphics l {{{Line | {{-1.. -1.927863365411739} . (0.802488661624436, -0.749019990592986}, {1.1000832182914, -0.557442162235803}, 

{1 275023265322688, -0.470051901193316}, {1.399385249546218, -0.4196936259076566). {1.495948843114022. -0.3869530852775928}, 
{1.574898989258946, -0.3639836092490773), {1.641680632207503, -0.3469931894273173), {1.699548677948487. -0.3339242959739331), 

{1.750604808323130. -0.3235644698694219}, {1.79628516981876, -0.31515330509724531. {1.837614739188246, -0.3081900048869743}, 

(1.875350696579289, -0.3023314621012289), {1.910068287208911, -0.2973348150100153}, {1.942214810694346, -0.2930233835759382}, 

(1 972144959458221, -0.289265596918928}, {2.00014474070519, -0.285961481476084}. {2.026448140455147, -0.2830337261160283), 

(2.051249021610516, -0.2804216135760304), {2.074709803628545, -0.2780768007838732), {2.096967915078924. -0.2759603231885111}. 

{2.118140671487759, -0.2740404283127187), {2.138329018246402, -0.2722909827598751), {2.157620441425085, -0.2706902832036441}. 

(2.176091259055681, -0.2692201567724531)}}}}), (DisplayFunction -> (Display [ $Di splay , #1] 4 ). 

PlocRange -> {{-1.079402281476392, 2.255493540532073}, {-1.969329445627721. -0.2277540765564709)). 

AxesOrigin -> {-1.079402201476392, -1.969329445627721). PlocRange -> All, AspectRatio -> GoldenRacio* (-1 > , DisplayFunction :> Identity, 

ColorOutput -> Automatic, Axes -> Aut oma tic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> {LogScale, LogScale), 
CridLines -> None, Prolog -> {), Epilog -> { } , AxesStyle -> Automatic, Background -> Automatic. DefaultColor -> Automatic, 

DefaultFont :> SDefaultFont, RotateLabel -> True, Frame -> False, FrameStyle -> Automatic, FrameTicks -> {LogScale, LogScale, LogScale, LogScale), 
FraxneLabel -> None, PlotRegion -> Automatic}] 

Clear 1 PhasorPlot , PhasorPlotBlack, AsspPlot , ArgPlot , AmpPlotTv] 


(• Maas Flux Field *) 

\* Calc lilA Li OILS *:• 

rhoSuSAvg: axial secondary ffar>~ flux 
f- AXIAL STRESS -• Reynolds Stress - uOuO ' ! 

twoT imesDrhoOuOu 0 ZAvgTenp late * DIrhoQ[z) uOhatTemplate uOhatCCTemplate, z J //ComplexExpand; 

twoTimesDrhoOuOuOZReAvgTeiaplate * 

(twoTimesDrhoOuOuOIAvgTemplate - I Coefficient [ twoTimesDrhoOuOuO^vgTemplate, U > ; 
twoTimesDrhoOuOuCCReAvgFluxHold [r — , z_, sigmaV_, Uo_,Ul_,phiU_]=twoTirnesDrho0u0u0ZR«AvgTemplate/ .uOAssign; 

Drho0u0u02ReAvgFlux(r_,*_.sig»aV_,0o_,Ul_,phiU_] :* 1/2 twoTirnesDrho0u0u02ReAvgFluxHold[r, z , sigrnaV. Do, Ul, phiU) 

//AeleaseHold//ReleaseHold//N; 

DrhoOuOuOl’.ReAvgFlux [ r_, z_, V.UO ,UL, PHIU] * DrhoOuOuOZReAvgFlux 1 r. z, V, U0 , UL, PHIU] / /Expand; 
axialStress l r_, z_)* Integrate! Integrate [r*Drho0u0u0iReAvgFlux(r , z, V, U0, UL, PHIU] , rl /r, rj //Expand; 

«*‘ r axialj8traf«'sq2*> 

{* q3 [ r_, z_) -Integrate ( r • axialStress [r, z] , r] / /Expand; •) ('don't really need r-dependence ... 
coded here for completeness*) 

<j3 { x_] *lntegrat«|r * axialStress [r, z] , {r, 0, 1}]//Expand; 


(»'*•** time- averaged u- velocity, c-r mean-steady Reynold*; Stress? 

twoTimesrhoOuOuOAvgTenplate * lrho0[z] uOhatTemplate uOhatCCTemplate) //ComplexExpand; 

twoTimesrhoOuOuOReAvgTemplace = (twoTimesrhoOuCuQAvgremplate - I Coefficient [ twoTiaesrhoQuOuOAvgTemplate, I ) ) ; 
twoTimesrhoOuOuQReAvgFluxHold [ r_, z_, sigma V_, Uo_, Ul_. phiU_) =twoTimesrho0u0u0RaAvgTen*>iate/ . uOAssign; 

rhoOuOuOReAvgFlux l r_. z_. sigmaV_,Uo_,Ul_,phiU_] : = 1/2 twoTimesrhoOuOuOReAvgFluxHold [r, z , sigmaV. Uo, Ul , phiU] 

//ReleaseHold//Releas«Hold//N; 

rho0u0u0ReAvgFlux{r_, z_,V, U0.UL, PHIU] * rhoOuOuOReAvgFlux l r , z . V, U0 , UL, PHIU] //Expand; 

t * average velocity amplitude tor rhcC-»l*i 

local ReynoldsS tress l z_} * Integrate (r* rhoOuOuOReAvgFlux [ r . z,V,U0,UL.PHIU), {r, 0, 1 } ] / /Expand; 
RMSReynoldsStress[z_]»Sqrt [ local ReynoldsS tress [z] J ; 


twoTimesrhoQvOuOAvgTemplate = rho0[z] vOhatTemplate uOhatCCTemplate //ComplexExpand; 

twoTimesrhoOvOuOReAvgTemplate = t woT imesr ho 0 v OuO A vgT emplace - I Coefficient [twoTimesrhoOvOuOAvgTeraplate, I ) ; 
twoTimesrho0v0u0ReAvgFluxHold(r_, z_, sigmaV_, sigmaPV_, Uo_. Ul_, phiU_,phiT_, Tw_] =twoTiraesrho0vQu0ReAvgTeraplate/ . 

Union [vOAssign, uOAssign] ; 


rho0v0u0ReAvgFlux[r_, z_, sigmaV_,aigmaPV_,Ue_.Ul_,phiU__,phiT_.Tv_] :* 1/2 * 

twoTimesrhoOvOuOReAvgFluxHoldlr, z, sigmav. sigma PV. Uo.Ul ,phiU. phiT.TwI / /ReleaseHold/ /ReleaseHold//N; 

rhoOvOuCReAvgFlux { r_. z_, V, PV, UO , UL, PHIU. PHIT, 0] = rhoOvOuOReAvgFlux [r, z, V, PV, UO.UL. PHIU.PHIT. 0] / /Expand; 
rhoOvOuOReAvgFlux I rl, z_, V, PV, UO.UL, PHIU. PHIT. TW] * rhoOvOuOReAvgFlux [ r, z , V, PV.UQ, UL, PHIU, PHIT, TW] / /Expand; 

radialS tress [r_, z_, 0) =Integrate[ rhoOvOuOReAvgFlux! r . z . V, PV, U0, UL, PHIU , PHIT , 0} ,r ] //Expand; ("radialStress* j 2* ) 
radialStress [r_, z_,TW] = Integrate ! rhoOvOuOReAvgFlux [r, z, V. PV. UO.UL, PHIU, PHIT, TW] , r] / /Expand; 

j3(r_.z_,0]* Integrate l r • radialStress [ r, z, 0] , r] //Expand; 
j 3 ! ,1. 0 ] = Integrator * radialStress ! r, z, 03 . {r, C. 1}}/ /Expand; 

(* j3[r_.z_,TW} = Integrate [r • radialStress ! r, z ,TW} , r}/ /Expand; *> 

(•don't really need r-dependence ... coded here for conplecenass* ) 
j3[z_.TW]= integrated * radialStress (r, z,TW] , {r,0,l)l//Expand; 


f - mass flux iT? ESS - * Stress" due to Kaos Conservation rholuO ' } 

twoTimesrholuOAvgTenplate = rholhatT«*>late uOhatCCTenplate / /ComplexExpand ; 

twoTimesrholuOReAvgTemplate = tvoTimesrholuOAvgTeraplate - I Coef ficient! twoTimesrholuOAvgTemplate, I] : 
twoTimesrholuOReAvgPluxHold [ r , z_, sigma V_, si gmaPV_, Uo_,Ul_,phiU_. phiT_, Tv_] =twoTimesrholuOReAvgTenplate/ . 

Union [plAssign.TlAssign.uO Assign ] , 


rholuOReAvgFlux I r_, z_. sigmaV_, sigmaPV_, Uo_, Ul_, phiU_,phiT_, Tw_] : * 

1/2 twoTimesrholuOReAvgFluxHold(r. z, sigmav, sigmaPV.Uo, Ul.phiU.phiT.Tw] 
/ /ReleaseHold//ReleaseHold//N; 

rholuOReAvgFlux { r_, z_,V, PV, UO.UL, PHIU, PHIT, 0) = rholuOReAvgFlux (r, z, V, PV. U0- UL, PHIU, PHIT, 0]//Expand; 

rholuOReAvgFlux [r_.zI,V,PV, UO.UL, PHIU, PHIT. TW] = rholuOReAvgFlux { r, z , V, PV, UO, UL. PHIU, PHIT, TW] //Expand; 


k3[z_,0] = (l/Power[V, 2] ) 
; * mass * luxS t; res? - r.3 * 2 

x.3 [ z_, TW) = (1/Power [V, 2} ) 


integrate (r* rholuOReAvgFlux [r , z , V, PV. U0, UL , PHIU , PHIT, 0 ] , ( r , 0 , 1} ) / /Expand/ /N ; 

Integrate [r-rholuOReA vgFlux ! r. z,V, PV, U0,UL, PHIU, PHIT, TW] , {r, 0, 1) ) //Expand/ /N; 


i • CiXONDAftv FLUX - rhoSuSAvg 

STEADY • MbserveOTi SECONDARY I M. V'SLOCITV ulAvg - due v, Keyr-v-d :? 1 stresses *i 

K [r z_,C) = 4 (k3 [z, 0 ] «• q3!z] - j3[z.O]) - 2 (axialStress 1 1. z] * radialScress {1 . z. 0 ] ) //Expand: 
K(rl!zjTW]= 4 (k3 [ z , TW] * q3[z] * j3[z,TW]> - 2 (axialStress! 1. z] * radialStress II, z.TWj ) //Expand. 

rhoOulAvg [ r ,z ,0] =Power [V, 2] ( (axialStress Ir, z] -axialStress 1 1 , z) )+ (radialStress (r, z , O] - 
radialStress [ 1 , z,0) ) *(r A 2-l) K[r, z , 0] ) //Expand; 

rhoOulAvg I r ,z , TW] =Power[v, 2] { (axialStress lr. zj -axialStress (1, zj ) -MradialStress (r, z.TW] - 

radialStress [l.z,TW})*(r*2-l) K[r . z . TW} ) //Expand; 

rhoSuSAvg [r_,z_, 0 ] = rhoOulAvg [r , z . 01 ' «■ rholuOReAvgFIuxi r , z , V, PV, UO.UL, PHIU, PHIT, 0 ] ; 

rhoSuSAvg [ r_, z_, TW] = rhoOulAvglr, z.TW] * rholuOReAvgFlux I r, z , V, PV.U 0 , UL . PHIU, PHIT, TW) ; 
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rhoSvSAvg : radial secondary mass flux 


f *«V>IAL SECONT.ARY KAoS FLUX - rhoSvSAvg •} 

rhoSvSAvg [r_, z_, 0) = - 1/r * Integrate{r*D[rhoSuSAvg[r. z, 0] , z],r) //Expand; 
rhoSvSAvg [r_. z_, TW] = - 1/r * lntegrate(r*D[rhoSu£Avg[r, z, TW] , z ] . r j //Expand; 

I* RADIAL MASS V !•;>' rholvO *} 

twoTimesrholvOAvgTeraplate = rholhatTemplate vOhatCCTemplate //ComplexExpand; 

twoTimesrholvOReAvgTemplate = twoTimesrholvOAvgTemplate - I Coefficient £ twoTimesrholvOAvgTemplate, I] ; 
twoTimesrholvOReAvgFluxHold [r_, z_, BigmaV_, sigmaPV_,uo_,Ul_,phiU_,phiT_,Tw_]*twoTimesrholvOReAvgTen«>late/. 

Union(plAssign,TlAssign,vOAssign] ; 


rholvOReAvyFlux(r_, z_, sigmaV_, sigmaPV_,Uo_. Ul_, phiu_, phiT_, Tw_] 

1/2 twoTimesrholvOReAvgFluxHold! r, z, sigmaV, sigmaPV.Uo.Ul.phiU.phiT.Tw] 
//ReleaseHold//ReleaseHold//N; 

rholvQReAvgFlux[r_, z_, 0! = rholvOReAvgFlux [r, z ,v, PV.UO, UL, PHIU, PHIT, 0)/ /Expand; 

rholvOReAvgFlux{r_, z_.TW] = rholvOReAvgriux [r, z,V. PV, U0 , UL, PHIU, PHIT, TW] //Expand; 

rhoOvlAvg[r_. x_,0) * (rhoSvSAvg £r, z . 0 ] -rholvOReAvgFlux ( r, z , 0] ); 
rhoOvlAvg [r_,z_,TW]*< rhoSvSAvg £r, z,TW] -rholvOReAvgFlux] r, z,TW] ) ; 


i* Fields V 

If (kindSystem=*OPT, Print [fileNameOPTHXfrListl ; Print [ f ileNameOPTHXf r ] . . Print t f ileNameBPTHXfrList ] ; 

Print! fileNameBPTHXfr] 1 ; 

T iming £ mas sFlux[l, means teady, 0] *PlotVectorFieldl { rhoSuSAvg [ r , z , 0! , rhoSvSAvg [r, z, 0] ) , (z , 0, 1 ) , {r, 0. 1 } , 
AspactRatio->l/3, DisplayFunction->Identity ] J ; 

Timing [massFluxll .means teady, TW] »PlotVectorFieldl { rhoSuSAvg ( r, z , TW] , rhoSvSAvg !r, *,TWJ ) , (*.0. 1>. (r,Q. 1} , 
AspectRatio-»l/3, DisplayFunction->Identi ty J ] ; 

Show ({ mas sFlux£l, means teady, 0] , liner(£0,l), {1, 1)] , texter) , DisplayPunction->$DisplayFunction] 

Show! {mas sF lux [1, means teady, TW] , liner! (0.1), {1,1)], texter) , DisplayFunction->SDisplayFunction] 

( {OPT , eps, Va, Pr, VaPr, UL, PHIU. M, LAMBDA, IaoPress Ratio, Adi Press Ratio. CLAdiPRatio) , 

{Fo. (PHIT, TW], VaPrFo), 

{ totalDragAmpO. total Drag RMS /tube, HOscFlowOStar} , date) 

-6 -9 

{{{OPT, 0.002, 100., 0.703. 70.266, 1., -0.1, 3.789 10 , 4.31 10 ). {1.002, 1.004, 1.00413}}, 

{100., (-0.03918, 0.319915), 7026.6), 

{0.00476915 Amp dyne, 0.199157 (tube^-1) dyne, 1.97349 W), {OPT<>100., 3, 15, 19}} 

r=l 



-Craphics- 


5 5 S tZtttJJJJJJS 



r=0 


-Graphics - 


Show! !massFlux(l,meanSteady, 0] , liner! {0, 1}, (1, 1 } ] , texter} , DisplayFunction->$DisplayFunction] 
Show! {maasFlux £ 1, means teady, TW] , liner ( {0,1}, {1,1}}, texter} , DisplayFunction->SDisplayFunction] 


-Graphics - 



z=l 


r=0 


-Graphics- 

{* F'lhti? *} (* of mass flux at a given z, Check for zero net mass flow *> 

If [kindSystem**OPT, {'Print { f ileNameOPTHXf rList) ;*) Print [fileNameOPTHXfr] , , ( 'Print [f ileNameBPTHXfrList] ; • ) 
Print [fileNameBPTHXfr] ] 

Block! { z= . 5} , 

Plot ({ rhoSuSAvg I r , z, 0 ] , rhoSuSAvg [r, z, TW] (*, rhoSuSAvg (r, 1 ,0}*) },{r,0,l), 

PlotStyle-> { { } , { Dashing [{0.03,0.03}], RGBColor I C , 0 , 1 ) } , { Dashing [{0.005, 0.02, 0.03. 0.02}], 

RGBColor |1. 0.0]} }, 

PlotRange->All, AxesLabel->{*r* , "*) ] {* rhoSuSAvg*) ; 

Timing(NIntegrate[rhoSuSAvg[r, z,0]*r. (r,0,l}]]| 

{* 

{{BPT, eps, Va, Pr, VaPr, UL, PHIU. M, LAMBDA, IsoPressRatio, AdiPressRatio, CLAdiPRatio), 

{Fo, {PHIT, TW}}, 

{totalDragAmpO, totalDragRMS/tube, HOscFlowOStar}, date) 

•> 

-6 -9 

{{{OPT, 0.002, 100.. 0.703. 70.266, 1., -0.1, 3.78910 . 4.31 10 }, {1.002. 1.004, 1.00413}}, 
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{100.. {-0.03918, 0.319915), 7026.6), 

{0.00476915 Anp dyne, 0.199157 {tube-'-ll dyne. 1.97349 W) , {OPTolOO., 3, 15, 19)) 



Ocher 

Plot [ { rhoSuSAvg [ r, 0 , 0 ) , rhoOul Avy ( r , 0 , 0 ] , rholuOReAvgFlux t r . 0 , V , PV , U0 , UL , PHIU , PHIT ,0)},{r,0,l), 
PlocScyle->{ {RGBColor [0, 0,1]), {RGBColor[0, 1,0) ) . { RGBColor [1,0,0]}), 

PlotRange->All , AxesLabel -> ( *r* , * rhoSuSAvg * ) ) ; 

rhoSuSAvg 



(* plot of Integrated over area Transverse RMS Reynolds Stress (integration z *) 
Plot [RMSReynoldsStress [z ) , (z, 0, 1) , PlotStyle->{ {RGBColor [1. 0.0]})]; 



ARCHIVE 

OTHER FLOW COMPONENTS 

<* Steady rhoGUlFlux Field *) 

I f [ )ci ndSy s ten>= =OPT , Print [ f ileNameOPTKXf rList ); Print [ f il eNameOPTHXf r ] , , Print [ t i leNameBPTHXf rList ) ; Print [ f i leNameBPTHXf r ] ] ; 
Timing ( rhoOUl Flux [ 1 , quasiSteady, 0] =PlotVectorField( UhoOulAvg [r, z , 01 , rhoOvlAvg [ r , z , 0 ] } ,{z,0.1),(r,0.1), AspectRatio->l/3 

(* .AxesLabel ->(*r/rw* , ■ z/L* } , Axes->True , *) ] ] 

Timing {rhoOUlFlux 1 1 , quasiSteady, TW] *PlotVectorField[ (rhoOulAvg [r, z , TW) .rhoOvlAvg [r, z.TW] } , {z, 0, 1), { r , 0 , 1 ) , AspectRacio->l/3 

(*, AxesLabel ->{*r/rv' , -z/L*>, Axes~>True, *) ] ] 

{ (BPT, eps, Va, Pr, VaPr. UL. PHIU, M, LAMBDA, isoPressRacio. AdiPressRatio, CLAdiPRatio) , {Fo, {PHIT, TW}}, 
{totalDragAmpO, totalDragRMS/tube, HOscFlowOStar } . date) 

{{{BPT, 0.1, 250., 0.703, 13.254, 0., n/aPHIU. 0.0003158, 5.98 10 ), {1.222, 1.397, 1.4)}, (20., {-0.288669, 0.490179)}, 

(0.397429 Amp dyne, 2.17228 (tube~-l> dyne, 246.69 W) , {BPT<>250., 6, 7, 13)1 
SAborted 


T 

i 



{60.8833 Second, -Graphics-) 
{" Steady rholUQFlux Field 


If [kindSyst«B«OPT, Print ( f ileNameOPTHXf rList) ;PrintlfileNameOPTHXf r) . . Print IfileNameBPTlOCfrList) ; Print [fileNam^PTHXfr]]; 
Timing { rholOUOFlux [1 , quasiSteady , 0] ^PlotVectorField { { rholuOReAvgFlux {r, z , V, PV, UO , UL , PHIU, PHIT, 0] , rholvOReAvgFlux [r , z , 0) ) 

{z,0,l}, (r, 0, 1} , AspectRatio->l/3 {* . AxesLabel ->{ w r/rv* , *z/L* } . Axes->True, ) ] I 
Timing! rholOUOFlux U, quasi Steady, TK]=PlotVeccorField[ {rholuOReAvgFlux(r. z, V, PV, U0,UL, PHIU, PHIT, TW) , rholvOReAvgFlux [ r. z, TW] 

{z, 0, 1) , {r, 0, 1) , AspectRatio->l/3 <*, AxesLabel->{ T/rv* , 


’z/L’ } , Axes->True, w ) ; ] 
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({BPT, eps, Va, Pr, VaPr. UL, PHIU, M, LAMBDA, IsoPressRacio, AdiPressRatio, CLAdiPRatio) , {Fo, {PHIT, TW}). 
{totalDragAnpO, to cal DragRMS/ tube, HOscFlowOStar). date) 

-7 

{{{BPT, 0.1. 250., 0.703. 13.254, 0., n/aPHIU, 0.0003158, 5.98 10 }. {1.222, 1.397. 1.4}), {20., {-0.288669. 0.490179)}. 

(0.397429 Amp dyne, 2.17228 (tube*-!) dyne, 246.69 W) , (BPT<>250., 6, 7, 13 } ) 



{43.1333 Second, -Graphics-) 



{45.1667 Second, -Graphics-) 


(• isothermal Flow movie *) 

Block ( { tEnd= . 95 } . I f [ k indSy s t am**OPT , Print ( f i leNameOPTHXf rList ) ; Print [ f ileNameOPTHXf r ] . , Print ( f ileNameBPTHXf rList ] ; Print ( f ileNameBPTHXfr ) ] 
Timing [ Do [ velField [ 2 , t , 0 ) -PlotveetorField ( 

{uORe [r, z, t.V, UO.UL, PHIU) ♦eps rhoSuSAvg (r, z. 0 1 , vORe [ r. z, t.V, PV. U0 ,UL, PHIU, PHIT, 0 )*eps rhoSvSAvg | r, z, 0 ]) , U. 0, 1). (r.0,1) , 
AspectRatio->l/3. (•AxesLabel->{ *r/rw' , *z/L') . Axes->True, * )PlotLabel->t) . {t, 0, tEnd. .05)111 


(* thin wall Flow movie M 

Block [ {tEnd* .95) , If (kindSystera«OPT, Print [fileNameOPTKXf rList] ; Print [ f ileNameOPTHXf r) , , Print [f ileNameBPTHXf rList ) ; Print {f ileNameBPTHXf rl ] 
Timing (Do [velField ( 2 , t , TW) *PlotvectorField I 

( uO Re [ r , z , t , V, U0 , UL, PHIU ) ♦eps rhoSuSAvg(r, z.TW) , vORe [r. z, t.V, PV,U0,UL, PHIU, PHIT,TW]+eps rhoSvSAvg(r. r,TW) ) , {z, 0, 1} . {r.0. 1) , 
AspectRatio->l/3, l*AxesLabel-> { *r/rw" , *z/L*} , Axes->True, *)PlotLabel->t] , {c,0, tEnd, .05} 1) ] 


d- steady Particle Velocity 


*) 


- } 


DuOReR [r_, z__, t_, V, U0 , UL, PHIU] * DtuORe [r. z, t.V. U0 , UL, PHIU] , r] ; 

DuOReZ [r_, z_, t_, V, U0 , UL, PHIU 1 = D[u0Re[r,z,t,v.U0,UL,PHIUl,z]; 

DuOReR2vOReTAvgFlux(r_, z_. 0| : = 

Integrate 1 DuOReR [r, z, t.V, UO.UL, PHIU) integrate [vORe(r, 2 , t.V, pv, U0.UL, PHIU, PHIT, 0],t],(t, 0,1)1 
DuQReftIvOReTAvgFlux(r_.z_,TW] : = 

integrate [DuOReR lr, z, t.V, UO.UL, PHIU] Integrate [v0Re[r, z, t.V. PV.U0 . UL, PHIU, phit.TW) , tl , {t. 0.1) 1 
Du0ReZIu0ReTAvgFlux[r_. zj\ : - 

Integrate { DuOReZ [ r, z, t.V. UO.UL, PHIU1 Integrate fuOAelr, z.t.V.UO.UL. PHIU] , t] , {t.0,1}] 
upAvg[r_, z_, 0) : = rhoSuSAvg [r, z, O) ♦ DuOReFIvOReTAvgFlux (r , z, 0] ♦ DuGReZIuOReTAvgFlux [r , z] //N 

upAvg[r_, zl.TW) := rhoSuSAvg [r, z, TW) ♦ DuORefavOReTAvgFlux [r , z, TW] ♦ DuOReZluOReTAvgFlux[r, z] /7N 


Ov0ReR[r_, Z_, t_,V, PV.U0.UL, PHIU, PHIT, 0] » D(v0Re [ r , z , t , V, PV, UO.UL, PHIU, PHIT, 0] ,rj ; 

DvOReZ (r_, zl, tl.v, PV, U0.UL, PHIU, PHIT. 0] * D[v0Re[r,z,t.V,PV.U0,UL,PHIU,PHIT,0],z]; 

DvOReR[r_,zI,t_,V,PV, UO.UL, PHIU, PHIT.TW) = D [vORe [ r , z , t , V. PV, UO , UL, PHIU , PHIT, TW] , r] ; 

DvOReZ [r_, Z_, t_, V, PV, UO.UL, PHIU, PHIT.TW) = D[v0Re Ir , z, t , V, PV, UO , UL , PHIU , PHIT , TWi , z] ; 

DvOReRIvOfteTAvgFlux ( r_, z_, 0] : * 

Integrate! DvOReR [r. z, t, V, PV, UO.UL, PHIU, PHIT, 0] Integrate ( vORe [ r, z, t.V, PV, UO.UL, PHIU. PHIT, 0] , t] . {t, 0*. 1}] 
DvOReZIuOReTAvgFluxlr z_,0] := 

Integrate [ DvOReZ [r. z, t, V, PV, UO , UL, PHIU, PHIT, 0] Integrate [uORe I r, z. t.V. UO.UL, PHIU] ,c].{t,0,l)] 
DvOReRTvOReTAvgFlux [ r z_, TW] :* 

Integrate l DvOReR [ r, z, t.V, PV, UO.UL, PHIU, PHIT, TW) Integrate {vORe (r. z, t.V, PV, UO.UL. PHIU, PHIT.TW] , t] . {t.0,1}] 
DvOReZ I uOReTAvgFlux{r_, z_. TW] := 

Integrate[DvOReZ[r, z, t.V.PV, UO.UL, PHIU, PHIT . TW) Integrat e [uORe ( r, z, t.V, UO.UL, PHIU] , c] , (t, 0. 1} J 
vpAvg[r z ,0] : = rhoSvSAvg [ r. z , 0] - DvOReRlvOReTAvgFlux[r. z . 0] ♦ DvOReZ luOReTA vgFlux [ r, 2 , 0 } //N 

vpxvg[r z~‘ TW] :* rhoSvSAvg [ r , z , TW] ♦ DvOReRlvOReTAvgFluxlr. z , TW] * DvOReZ IuOReTAvgFluxI r, z ,TW ] t /N 


{ * Up A * i 

uSPlot [ {r, .5) ,0]*Plot [rhoSuSAvg [r, . 5, 0) , { r, 0, 1 ] } ; 
uSPlot [ {r, 1) , 0}*Plot (rhoSuSAvg [r, 1,0], (r.0,1)]; 


Show ( { uSPlot [ ( r , 0 ) , 0 ] , Graphics [ { Dashing [{0.02.0.02)], RGBColor [0,0,1], upAvgPlot 10,0])]), Axes->True] 

{*Show[ {uSPlot [{r, , 5 ) , 0] , Graphics [{Dashing I {0. 02, 0.02)J, RGBColor [0, 0,1], upAvgPlot 1.5, 0]} ] }.Axes->True)*) 

Show] {uSPlot I { r, 1 } , 0 ] , Graphics ] {Dashing 1(0.02,0.02)] , RGBColor [0 , 0,1], upAvgPlot [1,0]}}), Axes->True] 

Show [Graphics [ { upAvgPlot [0.0], { Dashing [ { 0 . 02 , O . 02 } I , RGBColor [0,0,1], upAvgPlot [ 0 . TW)]) ] , Ax«s->True) 


Show[ (uSPlot ( { r , 0} , 0 ) , Graphics ] (Dashing [ {0 . 02 , 0 . 02 )], RGBColortO, 0, 1] , upAvgPlot (0, 0] }] ) , 

{uSPlot Hr. 1} ,0] . Graphics [ {Dashing [{0.02, 0.02}] .RGBColor 10. 0. 1] .upAvgPlot [1,0]})}. Axes->True] 


ShowtGraphics] { { upAvgPlot [0, 0] ) , 

{Dashing! {0.02.0.02}], RGBColor (0, 0, 1] , upAvgPlot [. 5 , 0 ]} , 

{Dashing! { 0 . 005 , O. 02 . 0 .03, 0 . 02} J , RGBColor [1 , 0, 0 ], upAvgPlot [1 , 0) ) 

) ] , Axes->True] 

Show [Graphics [ { DuOReR: vORe'l’AvgFluxPlot [0, 0] , (Dashing] {0.02,0.02}], RGBColor [0, 0, 1 ) . 

DuOReR I vOReTAvgFluxPlot [0.TW] } ) ] . Axes->True] 

Show [Graphics! DuOReZIuOReTAvgFluxPlot(O) ] ,Axes->True] 




-Graphics- 



-Graphics- 

: - wp-v-^ * i 

Show [ (vSPlot t {r, 0) , 0] , Graphics t {Dashing [ (0.02,0. 02} ] , RGBColor (0, 0 , 1] , vpAvgPlot [0, 0] }] ) , Axes->True] 
Show [Graphical (vpAvgPlot [0,0], {Dashing £ {0 . 02, 0 .02} ] , RGBColor [0, 0, 1) , vpAvgPlot [ 0 ,TW) ) }] , Axes->Truej 

<* 

ShowJGraphicsI { { vpAvgPlot [0, 03 ) , 

{ Dashing [ {0.02,0.02}}. RGBColor [ 0 . 0, 11 . vpAvgPlot [. 5. 0] ) , 

{Dashing [ {0 . 005. 0 . 02 , 0 . 03 , 0 . 02 } J , RGBColor [ 1 . 0 . 0 ! . vpAvgPlot [1 . 0] } 

) 1 , Axes->True] 

Show [Graphical {DvOReRivOReTAvgFluxPlot [0,0), {Dashing [{0.02,0.02}}, RGBColor [0, 0. 1 3 , 
DvOReRIvOReTAvgFluxPlot [0 ,TW]} } ] , Axes->True) 

Show [Graphics [ { DvOReZIuOReTAvgFluxPlot [0,0] , {Dashing [{0.02,0.02}], RGBColor [0, 0. 1] , 
Dv0ReCIu0ReTAvgFluxPlot(0,TW] }}} ,Axes->True! 

*) 


-Graphics- 



-Graphics- 

* Fields * : 

If [kindSyat«m=*OPT, Print [f ileNameOPTHXf rList ) ; Print [ f ileNameOPTHXf r) , , Print [fileNameBPTHXf rList ] ; 

Print { fileNameBPTHXf r) } ; 

Timing [par ticleVelField[l, meanSteady, 0] =PlotVectorField [{ Re [upAvg [r, i, 0] ] , Re [vpAvg [r , z, 0} ] },{z,0,i), 
[r. 0, 1} , AspectRatio->l/3, DisplayFunction-> Identity) 3 ; 

Timing [ particlevelField [ 1 , meanSteady, TW] =PlotVectorField [ { upAvg [r, *,TW) , vpAvg [r, z, TW] },{z,0,l},[r,0,l}, 
AspectRacio->l/3, Di spl ayFunc ti on- > Identity] ) ; 

Show [ {particlevelField [ 1 , meanSteady, 0 ) , liner [{0.1}, {1,1)3. texter } . DisplayFunction->SDisplayFunction ] 
Show[ {particlevelField [1, meanSteady, TW] , 1 inert {0. 1}, {1,1)3 , texter} ,DisplayFiinction->$DisplayFunctionl 


{{OPT, eps, Va, Pr, VaPr, UL. PHIU, K, LAMBDA, isoPressRatio, Adi Pres sRatio, CLAdiPRatio} , {Fo, {PKIT. TW}, vaPrFo} , 

{totalDragAmpO, totalDragRMS/tube, HOscFlowOStar } , date} 

-6 -9 

{({OPT, 0.002, 100., 0.703, 70.266, 1., -0.1, 3.769 10 , 4.31 10 ). (1.002. 1.004, 1.00413}), 

{100., (-0.03918, 0.319915} . 7026.6), 

{0.00476915 katp dyne, 0.199157 (tube*-l) dyne. 1.97349 W}, {OPTolOO., 3, 15, 19}} 


(• T2 Solution ♦> 

(• calculations •) 

ulAvg[r_, z_. 0] =rho0ulAvg [r , z , 0) / rhoO [z] / /Expand, 
uIAvg [r_, z_,TW} =rho0ulAvg [r , z , TW] / rhoO [z] / /Expand ; 

DulAvg3(r_, z_, 0] =D[ulAvg [r, z,0) , z] ; 
rulAvgZ[r_, z_, TW) =D[ uIAvg [r, z , TW] , z] ; 


I 
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( 


) 


twoTimespluOAvgTemplate * plhatTemplate * uOhatCCTenplate //CoaplexExpand; 

twoTimespluOReAvgTemplate * twoTimespluOAvgTemplate - I CoefficientitwoTimespluOAvgTenplate.Il; 
twoTi»espluOReAvgFluxHold[r_, z_, sigmav_, sigmaPV_,Uo_,Ul_,phiu_,phiT_,Tw_] ■twoTimespluOReAvgTemplate/ . 

Union (plAssign, uOAssign) ; 

pluOReAvgFlux(r_,z_, sigmaV_,sigmaFV_,Uo_.Ul_,phiU_,phiT_,Tw_] :* 1/2 * 

twoTimespluOReAvgFluxHold(r, z, sigmaV, sigmaPV, Uo, U1 . phiU, phiT, Tw) //ReleaseHold/ZReleaseHold/ / 

ReleaseHold//N 

pluQReAvgFlux[r_, x_,V, PV, UO, UL, PHIU, PHIT, 0) ■pluOReAvgFlux(r , z. V, PV, U0,UL, PHIU, PHIT, 0] //Expand; 
pluQReAvgFlux(r_, z_,V, PV, UO, UL, PHIU, PHIT, TW] =pluOReAvgFlux[ r , z.V.PV, UO, UL, PHIU, PHIT, TW] //Expand; 

Dp 1 u 0 ReA vgF luxZ ( r_, z_, 0 ] »D (pluOReAvgFlux [ r , z , V, PV, UO , UL, PHIU , PHIT , 0 ] , z ) ; 

DpluOReAvgFluxZ (r_, z_,TW] =D (pluOReAvgFlux [r, z, V, PV,U0,UL, PHIU, PHIT, TW] ,zj ; 

wi[r_,z_,0) *lntegrate(l/r * integrate (r* (DulAvgZ(r, z, 01 +DpluOReAvgFluxZ[r,z, 0) ) ,r ),r); 
wl (r_, z_,TW] *Integrate[l/r * Integrate tr» (DulAvgz(r, z,TW] +DpluQReAvgFluxZ [r , z, TW] > ,rj , r) ; 

I 

vlAvg [r_, z_, 0] *rhoOvlAvg(r,z, 0]/ rhoOlzJ //Expand; 
vlAvg [ r_, z., TW] *rho0vlAvg [ r , z , TW ] / rhoO Iz ] / /Expand ; 

twoTimesplvOAvgTemplate = plhatTemplate * vOhatCCT emplace //ComplexExpand; 

twoTimesplvOReAvgTemplate * twoTimesplvOAvgTernplate - I Coefficient [ twoTimesplvOAvgTenplate, 13 ; 
twoTimeBplvOReAvgFluxHold[r_, z_, sigmaV_, sigmaPV_, Uo_, Ul_, phiu_, phi T_, Tv_J » twoTimesplvOReAvgTemplate/ . 

Union [pi Assign. vOAssign] ; 

plvOReAvgFlux[r_, z_, 8igmaV_,sigmaPV_,Uo_,Ul_,phiU_,phiT_,Tw_] :■ 1/2 * 

twoTimesplvOReAvgFluxHold[r , z, sigmaV, sigmaPV, Uo,Ul, phiU, phiT, Tw] //ReleaseHold//ReleaseHold//ReleaseHold//N 
plvOReAvgFlux{r_, z_, V, PV, U0,UL, PHIU, PHIT, 0J =plvOReAvgFlux [r , z, V, PV, UO, UL, PHIU, PHIT, 0 3 //Expand; 
plvOReAvgFlux [r_, z_, V, PV, UO, UL, PHIU, PHIT, TW] -plvOReAvgFlux [ r , z, V, PV, UO, UL, PHIU, PHIT, TW) //Expand; 

w2[r_,z_,0J integrate [vlAvgtr, z, 01 * plvOReAvgFlux [r. z , V, PV, U0, UL, PHIU, PHIT, 0] , r)//Expand; 
w2 (r_, z_, TW) ^Integrate [ vlAvg [ r , z , TW) ♦ plvOReAvgFlux [r, z , V, PV, U0, UL, PHIU, PHIT, TW] , r] //Expand; 

( * * ) 

T2 [r_, z_, 01 » (PV) *2 (wl [r,z, 0) -will, 2,0} •*-w2[r,z,0) -w2[l,z,0)) - 

CAPGAMKA A 2 D[T0[zl,<z,2}] 1/4 <l-r A 2)/ /Expand; 

T2[r_.z_,TW] » (PV) *2 ( wl ( r , z , TW] -wl [1 , z , TW] *w2 [ r , z , TW] -w2 ( 1 . z , TW] ) - 
CAPGAKHA A 2 D[T0 [ z] , { z , 2} ] 1/4 (1-^2) //Expand; 


C plot* *) 

If [ kindSystem^-OPT, Print ( f ileNameOPTHXfrList ] ; Print [f ileNameOPTHXf r] , . Print [ f ileNaaveBPTHXfrList ] ; 

Print [f ileNameBPTHXfr] ]; 

T2 I so* Plot [ (T2 { r, 0 . 0, 0] , T2 [r, .25,0] , 

T2 [r , . 50, 0] , T2 [r , .75,0], 

T2[r,1.0,0j J.(r.O.l), 

PlotStyle->( (RGBColor [0, 0, .6]). {RGBColor [0, 0. .9] } , {RGBColor [0 , 0, .81 >. (RGBColor [0, 0, .7]) , {RGBColor { 0 , 0 , 1 ] ) } , 
PlotRange->All, DisplayFunction->Identity] ; 

T2TW*Plot [ {T2 (r , 0 . 0, TW] , T2 [ r, . 25 , TW] , 

T2[r, . 50,TW] ,T2 [r. .75.TW] , 

T2[r, 1.0, TW]),{r, 0,1), 

PlotStyle->{ (RGBColor [ .6, 0, 0] 1- (RGBColor l .9,0.0]}, (RGBColor (. 8 . 0, 0) ) , ( RGBColor { .7,0,0]}, (RGBColor [ 1 , 0, 0 ] } ) , 
PlotRange->All , Di spl ayFuncti on -> Identity ] ; 

Show[ (T2Iso, T2TW] , DisplayFunction->$DisplayPunction, AxesLabel->{ •**,•■)] 


-Graphics - 

ARCHIVE 

ARCHIVE 

((Thesis, OPT, eps, V, P, PV, UL, PHIU. H. isoPressRatio, AdiVolPR, CLAdiPRatio) , (F. (PHIT. TW}], (HFlowO), (1995, 12. 13, 13. 2, 59)) 
{{Thesis, OPT, 0.1, 22.5122. 0.83025, 18.871, 0.3. -0.5, 0.0006315, 1.299. 1.546, 1.55319). (0.000372373, (-0.253, 0.881585)), (500.081 W) } 




137 




APPENDIX H 
EXPERIMENTAL DATA 


The data presented are for Runs 1, 2, 5, and 6 discussed in section 5. The columns are 
generally self-explanatory. The first two columns list the frequency and phase angle. The raw data 
give position and calculate axial particle velocity, which is then converted into dimensionless 
velocity. The system parameters £ and Uq are then listed. The calculated axial particle velocity 
corresponding to the measured position is in the next column. The final four shaded columns are 
used in the plots of section 5. The first shaded column lists the single-point velocity, the second 
column lists the 3 -point running average of the single point velocity, and the third column lists the 
5-point running average. The last column lists the corresponding calculated axial velocity. 
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